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1.0 INTRODUCTION 
1.1 ABSTRACT 

THE RM8O SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH 
USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE po naO DISK 
SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
DISK DRIVE, INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 
OPERATIONS; 

TO IMPLICITLY ESTABLISH CONFIDENCE IN THE  £ODRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RM80 SUBSYSTEM, INCLUDING THE 
MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 4 PARTS, WHICH WOULD NORMALLY BE RUN IN 
SEQUENCE, BRIEFLY PART 1 TESTS HOUSEKEEPING 
AND MEC PART 2 T 
WRITE ATA 


READ _AND ITE TA; 
ae IONING OPERATIONS AND VARIOUS TIMING PARAMETERS OF THE RM80 DISK 





1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RM80 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RH70 MAS TROLL ER ADAPTER, 
AND THE STORAGE MODULE DISK DRI NOTE THAT A DISK PACK IS REQUIRED 
FOR TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 









2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 
THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
RATIONAL 1S REQUIRED TO LOAD AND EXECUTE THE RM80 SUBSYSTEM 
FUNCTIONAL TES 
PDP=-11 PROCESSOR 


KWIT-L OR KW11-P CLOCK 
FORMIRAL LOADING DEVICE 


m7. CONTR OLLER 
RM80 DISK DRIVES 


2.2 MEDIA REQUIREMENTS 


a ~ epee ne ee 
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36 EACH UNIT BEING TESTED MUST BE LOADED WITH A DISK BEFORE TESTING 
BEGINS ON THAT UNIT. THE DISK MAY BE FORMATTED OR UNFORMATTED. 


2.35 PREREQUISITE DIAGNOSTIC PROGRAMS 
RM8O DISKLESS TEST, PART 1 & 2 


3.0 OPERATING PROCEDURE 
3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
-XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 
THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
THE PROGRAM. 


URW OGRNOUSUIN ODM OARS obo 













OF 
SW15 HALT ON ERROR 
SW14.  +LOOP ON TEST (CURRENTLY BEING EXECUTED) 
SW13 INHIBIT ERROR TYPEOUTS 
9 SWi2  _—s UNUS 
SW11 INHIBIT TEST ITERATIONS 
91 SW10 BELL ON ERROR 
6 SWO9 _ LOOP ON ERROR 
9 SWO8 LOOP ON TEST IN Sw07-00 
36 THE LOW ORDER 8 SWITCHES (SWO7-SWOO). ARE USED IN CONJUNCTION WITH 
3% S TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
ee LOOP ON. 
1 
3.3 STARTING 
1 $ THE MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
1 200 WILL BE THE STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
1 THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 
1 ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL fest CONDITIONS. 
1 
110 
1] 3.4 HALTING 
118 THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR 
114 BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL. 


—— 


rr rere stesso eee 
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3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


ed ed ced eee end 
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4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 
PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 


THE 
IS vis fate AFTER BEING LOADED. PROGRAM IDENTIFICATION DOES NOT OCCUR 
IF THE PROGRAM IS RESTARTED. 


GN 
~ 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D.. 


THE FIRST QUESTION TYPED OUT IS: "TYPE HELP TEXT (L) N 2". 
IF THE OPERATOR RESPONDS WITH A "‘Y'', THE WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A 'N'' AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND "NOT ON 

SUBSEQUENT START-UP'S. 


w 


ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
THE OPERATOR MAY CHANGE THE RH/AM BASE ADDRESSES WITH THE FOLLOWING 


EXAMPLE 1 
RMCS1=176700 <CR> NO CHANGE IN ADDRESS 
RMVEC=000254 <CR> NO CHANGE IN ADDRESS 
EXAMPLE 2 


RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> :CHANGE VECTOR ADDRESS TO 260 












THE NEXT QUESTION ASKED IS ‘DO YOU WANT MANUAL INTERVENTION 
TESTS (L) N ?". IF THE OPERATOR — WITH A_°Y* RESPONSE, 
ENTERING A NTERVENTION TEST 


MANUAL _IN THE PROGRAM WILL ASK THE 
OPERATOR TO PERFORM CERTAIN FUNCTIONS TO THE DRIVE. THERE IS ONLY ONE 
MANUAL INTERVENTION TEST IN THIS E SECTION 6. Ps TEST #2) 
ANY OTHER RESPONSE TO THE QUESTION IS CONSIDERED TO BE ‘N' AND THERE 
WILL BE NO MANUAL INTERVENTION IN THE PROGRAM OPERATION. TERMINATE 
RESPONSE WITH A CARRIAGE RETURN. 


ON THE INITIAL START. THE NEXT QUESTION TYPED 1S. ‘TYPE “A'’ TO 
TEST ALL DRIVES, OR TYPE’ DRIVE NUMBER(S) AND NATE INPUT WITH 
A CARRIAGE RETURN'S THEN, “DRIVECS):* IS TYPED AND. WAITS” FOR THE 






ww Vw 


~ 
~ 
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17 OPERATOR TO TYPE AN ‘A’, TO TEST ALL POSSIBLE DRIVES OR TYPE ANY | 
1 STRING OF DRIVE NUMBER(SS TO BE TESTED AND TERMINATE THE INPUT WITH A | 
174 CARRIAGE RETURN. NO ANY OTHER SEPARATORS ARE NEEDED WHE 
175 ENTERING THE DRIVE NUMBERS AS A STRING. TERS THE COMMA 
1% SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
1? STARTS, ONLY THE ‘DRIVE(S):*° PROMPT IS TYPED. 

179 THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 

1 DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 

181 1S AN EXAMPLE PRINTOUT: 

‘UNIT STATUS: 

185 1 LOAD DEVICE 

1 @ OFFLINE 

1 NOT PRESENT 

1 4 NOT PRESENT 

189 5 NOT AN RMBO 

1 6 NOT PRESENT 

191 7 ‘NOT PRESENT® 

198 THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 
194 1-7 WILL NOT BE TESTED. 

196 THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE STATUS 
19 OF THE DRIVE: 

198 DRIVE(S) TO BE TESTED, 0° 







IF NO DRIVES ARE AVAILABLE FOR — THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 


"DRIVE(S) TO BE TESTED, NONE’ 


THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 


ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 


"DRIVE 0° 


AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 


NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
A ee REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 


WMlUuro— 


weed eed ce ced bd md» ot aod 
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4.3 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM JIS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 








CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-4 


2 


"END OF PASS 1° 


THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 


"TOTAL ERRORS SINCE LAST REPORT 0° 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. | 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER 
UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND HE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF, YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALL ONE E PAIRS OF LINES 


MOR 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 


THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 


DRVA 0 - TEST# 14, eERRA 326, 6, PC=016654 
MASSBUS DA ATA BUS PAR PARITY E'’ (RMCS2, BIT 8) DETECTED 
DURING URITE_ COMMAND 


6 
on ite a 090000 600000 
011777 §24026 rN 


4.7 EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2.5 MINUTES. 






















$1 
166352 





RMEC2 
000000 


a 03 
RMMR1 
000010 






5.0 ENVIRONMENTAL SUPPORT 


SEQ 0007 
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5.1 PROCESSOR COMPATIBILITY 


THE RM80 SUBSYSTEM FUNCTIONAL TEST IS 
PROCESSOR, PROVIDING PREVIOUSLY 

PROVIDING THAT DATA THR 
SUSTAIN DATA TRANSFER OPERATIONS. 


EXECUTABLE ON A PDP-11/70 
MEN ee HARDWARE REQUIREMENTS ARE 
T ON THE SYSTEM IS SUFFICIENT TO 







5.2 DUAL PORT CONFIGURATIONS 


THE RM8O SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 
PORT LOGIC IN THE RM80 ADAPTER BUT IS EXECUTABLE ON 
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH 
IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RM80 SUSBYSTEM FUNCTIONAL TEST. 





5.4 MEMORY MANAGEMENT HARDWARE 
MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUSBYSTEM 


- FUNCTIONAL TEST. 


5.5 ACT11, APT11 COMPATIBILITY 


THE RM8O SUBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND 
APT11__IN TOMATIC MODES. FURTHER, THE PROGRAM WILL 
ee A QUICK PASS DURING THE staat PASS IN SUPPORT OF QUICK VERIFY 





5.6 XXDP COMPATIBILITY 


THE RM8O SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP_IN 
DUMP AND CHAIN MODES, AND PROVIDES MEDIA oo IN THE CASE WHERE 
THE RM80 IS THE XXDP Lois DEVICE. 





5.7 OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


6.0 TEST DESCRIPTION 


SEQ 0008 


TEST 


TEST 








TEST 1 CONTROLLER ACCESS TEST 


PURPOSE : 


TO VERIFY THAT THE UNIBUS ADDRESS OF THE RM8O0 SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION S$BASE. 


PROCEDURE: 
THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
USING THE $BASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 
IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 
AL I.E. LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE | SBASE 


ADDRESS VIA CONSOLE "DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


2 LOGICAL ADDRESS PLUG TEST (OPTIONAL, SEE SECTION 4.2) 
PURPOSE : 


TO VERIFY THAT ALL LOGICAL ADDRESS PLUGS(0-7) FUNCTION IN 
EACH DEVICE UNDER TEST. 


PROCEDURE : 


THIS TEST SELECTS EACH UNIT BY INSERTING ADDRESS PLUGS 0-7 
inte. a DEVICE BEING TESTED AND READS RMER2 Lh big THAT 


A CLEAR IS_ ISSUE AD TO 
Hae THAT OPE’ IS CLEAR. 









D AND RMER2 IS RE 

THE CONTROL STATUS REGISTERS 1 AND 2 
READ TO VERIFY THAT THE CORRECT UNIT WAS SELECTED AND IS 

a FOR TESTING, ‘DVA'' IS SET IN RMCS1 AND "NED" IS CLEAR 





3 UNIBUS INITIALIZE TEST 
PURPOSE : 


TO VERIFY THAT ALL APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY THE RESET INSTRUCTION. 


PROCEDURE : 


ee 





CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-7 


NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE REGISTER. 
AND THE REGISTERS ARE TESTED TO 
THIS TEST IS DONE ONCE BECAUSE OF 


4 ; 
401 RESET INSTRUCTION +3 EXECUTED, 
40 INSURE THEY WERE INIT 
x APT COMPATIBILITY REQUIREMENTS. 
405 THE FOLLOWING REGISTERS ARE PRESET BEFORE THE INITIALIZE 
rt OCCURS: 
40 | 
408 RMCS1 = 003577 
RMBA - 777776 


RMCS2 = 021037 
RMER1 = 777777 
RMER2 = 777777 
RMMR = 040001 


PORNO NODY 2 2 2 
PUM ODD NAME ANOS 


PURPOSE : 


2SSRNO 


GN 
wr 


HPPLPHPHLLPPPPHLLHLPHLHLPPHLPLPHLHLHLHLHSHLHLHLHK SE 


4 PROCEDURE: 
VALUES IN THOSE REGISTERS 
| _ T.£., BIT 5 OF CONTROL 
440 REGISTER IS READ TO INSURE IT WAS CLEAR 
44 
44 
44% 
445 
4 TEST 5 ERROR CLEAR TEST 
44 _ PURPOSE: 


TO VERIFY THAT ALL APPLI 
AND ERROR CONDITIONS ARE INIT 


AN *'RH70 ERROR CLEAR*’ OPERATION, 
BIT 1a. OF RMCS1 WILL CLEAR THE FOLLOWING § 


449 
450 
i 
‘ PROCEDURE : 
455 
456 


IN ADDITION, THE DATA BUFFER IS USED TO FORCE DLT,TRE.SC AND OR 
TO A ONE AND TO FORCE IR TO A ZERO. 


TEST 4 CONTROLLER CLEAR TEST 


TO VERIFY — THAT 
INITIALIZED BY A ‘CONTROLLER CLEAR"’ 


LIKE THE UNIBUS INITIALIZE TEST, THIS TEST WRITES NONZERO 
WHICH ARE AD ga Uo BY CONTROLLER 

EAR. THE SUBSYSTEM IS THEN CLEARED UV CONTROLLER CLEAR, 
STATUS REGISTER 2 (RMCS2), AND EACH 


H70 MASSBUS CONTROLLER STATUS 
BY AN ERROR CLEAR OPERATION. 


yt a ONE IN TRE, 


oe 


SEQ 0010 


————————— = 
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-TRE, BIT 14 OF RMCS1 

-MCPE, BIT 13 OF RMCS1 - READ ONLY 
-DLT, BIT 15 OF RMCS2 - READ ONLY 
-WCE, BIT 14 OF RMCS2 - READ ONLY 
-UPE, BIT 13 OF RMCS2 

-NED, BIT 12 OF RMCS2 - READ ONLY 
-PGE, BIT 10 OF RMCS2 - READ ONLY 
-MXF, BIT 09 OF RMCS2 

-MDPE, BIT 08 OF RMCS2 = READ ONLY 


THE TEST SETS UPE AND MXF STATUS BITS, THEN SETS TRE (ERROR 
CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED. 


TEST 6 DRIVE STATUS TEST 
PURPOSE : 


TO VERIFY THAT THE STORAGE MODULE oe DRIVE IS IN A_ STATE 
THAT PERMITS FURTHER TESTING. 


PROCEDURE : 


THIS TEST INITIALIZES THE MASSBUS AND EXAMINES STATUS OF THE 
SELECTED DEVICE FOR THE FOLLOWING CONDITIONS: 


.MOL, BIT 12 OF RMDS =1, INDICATING THAT UNIT READY IS 
ASSERTED BY THE DRIVE: 


.WRL. BIT 11 OF RMDS =0, INDICATING THAT THE DRIVE IS NOT IN 
A WRITE PROTECT STATE; 


-DVC, BIT O7 OF RMER2 =0, INDICATING DRIVE FAULT IS 
UNASSERTED BY THE DRIVE; ; 


.UNS, BIT 14 OF RMER1 SHOULD EQUAL DVC OTHERWISE AC POWER 
IS LOW OR’A FAILURE HAS OCCURRED WITH UNSAFE STATU 


TEST 7 PRIMARY/SECONDARY ERROR TEST 


SEQ 0011 


: 
| 


eee 
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PURPOSE : 


TO VERIFY THAT THE RM8O CAN EXECUTE A COMMAND WITHOUT 
INCURRING UNEXPECTED ERRORS. 


PROCEDURE : 
THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES SURE 


THAT GC RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC. VOLUME 
VALID STATUS IS IGNORED. 


NOVUSWNOOWOnNOusn 


TEST 10 DIAGNOSTIC MODE TEST 
PURPOSE : 
TO VERIFY THAT MAINTENANCE HARDWARE IS OPERATIONAL. 
PROCEDURE : 
THE TEST THAT DIAGNOSTIC wee CAN BE SET AND RESET, THEN 


VERIFIES THAT ‘MOL, PIP, WRL, SKI, AND DVC’’ CAN BE CONTROLLED 
USING MAINTENANCE REGISTER 1. 


Wn 


MVAM AMAA AMAA AAAI 
wm 


Sru 
—O 


ViVi 


DAA VIVIVIMNUIIE SHELL HREE 


TEST 11 PACK ACKNOWLEDGE TEST 
PURPOSE : 
c NDING CREDENCE TO THE EXECUTION OF 
THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE. 
PROCEDURE : 


A PACK ACKNOWLEDGE COMMAND IS ISSUED TO THE SELECTED DEVICE 
AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE. 


DOONOME WIN = OS OONOAULS WN 





TEST 12 RECALIBRATE TEST 


THE PRIMARY PURPOSE IS TO. ASCERTAIN THAT THE DRIVE. WILL 
EXECUTE A RECALIBRATE OPERATION TO THE EXTENT THAT ‘PIP 
"STATUS BECOME UNASSERTED AT THE COMPLETION OF THe 
RECALIBRATE. THE SECONDAR TO PUT THE DRIVE IN 
RHOUN STATE’ SO THAT FURTHER TESTS CAN CHECK FOR UNEXPECTED STATE 





TO VERIFY THAT VOLUME VALID CAN BE SET BY A PACK ACKNOWLEDGE 
THE COMMAND AND TO 





SEQ 0012 
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TEST 


CHANGES IN THE DRIVE. 
PROCEDURE : 

THE RECALIBRATE TEST PRESETS THE DISK ADDRESS REGISTER, 
RMDA, AND THE DESIRED CYLINDER REGISTER, RMDC, TO ZERO, 
EXECUTES A RECALIBRATE COMMAND. THE TEST VERIFIES THE FOLLOWING 
CONDITIONS: 

~SKI=0, “SEEK ERROR'’ IS INACTIVE; 


PIP=0, ‘ON CYLINDER’ JIS ACTIVE, AS INDICATED BY 
“POSITIONING IN PROGRESS'* BEING INACTIVE; 


.IAE=0, NO ““INVALID ADDRESS ERROR'’ DURING RECALIBRATE; 
“OPERATION INCOMPLETE ae INDICATING THAT 


-OPI=0, 
THAT THE DRIVE WAS READY AT THE START OF OMMAND AND THAT ON 
Ly STATUS WENT INACTIVE WHEN THE DRIVE RECEIVED THE 


-ATA=1, ATTENTION IS SET BY RECALIBRATE. 


13 ABORT RECALIBRATE TEST 
PURPOSE : I 


TO VERIFY THAT THE RM80 INHIBITS A_RECALIBRATE WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 


PROCEDURE : 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND. ISSUES A 
RECALIBRATE COMMAND, VERIFYING THAT ‘PIP’* REMAINS INACTIVE. 


TEST 14 IVC RECALIGRATE TEST 


TO VERIFY THAT INVAL 
WHEN VOLUME VALID IS INAC 





D COMMAND STATUS, BIT 12 OF RMER2, SETS 
i ECAL COMMAND . 


I 
TIVE DURING A R IBRATE 

















ne AND 


LS revi ERI 


SETS. DIAGNOSTIC, MODE WHICH CAUSES 
Q RESET. THE PROGRAM THEN EXECUTES 
RIFIES THAT "‘IvC’’ STATUS SETS AND 








SEQ 0013 


| 
| 
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TEST 


TEST 


TEST 


15 IAE RECALIBRATE TEST 
PURPOSE : 


TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET DURING A 
RECALIBRATE COMMAND . 


PROCEDURE : 
THE TEST PRESETS THE DISK_ADDRESS (RMDA) AND THE DESIRED 


CYLINDER ADDRESS (RMDC) TO ILLEGAL VALUES AND ISSUES A 
a COMMAND, VERIFYING THAT “‘IAE’’ DOES NOT SET DURING THE 


16 RECALIBRATE AT OFFSET 
PURPOSE : 

TO VERIFY THAT OFFSET MODE DOES NOT AFFECT RECALIBRATE. 
PROCEDURE : 

THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES .. 


RECALIBRATE COMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURI 
RECALIBRATE. 


17 DRIVE CLEAR TEST 
PURPOSE : 


TO VERIFY THAT ALL APPLICABLE RM&0 MASSBUS ADAPTER ERROR AND 
STATUS CONDITIONS ARE INITIALIZED BY A “DRIVE CLEAR’’ COMMAND. 


PROCEDURE : 

THIS TEST WRITES ONES IN THOSE MASSBUS ADAPTER BITS WHICH 
ARE INITIALIZED BY DRIVE CLEAR ., THEN ISSUES THE DRIVE CLEAR 
COMMAND AND VERIFIES THAT EACH BIT JIS CLEARED. ADDITIONALLY 
REGISTERS WHICH ARE NOT AFFECTED BY ‘DRIVE CLEAR’ ARE ALSO PRESET 
AND VERIFIED. 

THE FOLLOWING ITEMS ARE PRESET: 


-RMER1, ERROR REGISTER 1 IS SET TO ALL ONES; 





et en 
—. — -_ . —_— 
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-DMD, DIAGNOSTIC MODE IS SET; 
-RMER2, ERROR REGISTER 3, IS SET TO ALL ONES. 


— THE DRIVE CLEAR COMMAND, THE FOLLOWING ITEMS ARE 


.RMCS1, IS CHECKED FOR DVA=1, FO-F4 AND GO=0, ALL OTHER BITS 
ARE DONT CARES: 


.RMDS, IS CHECKED FOR 0, EXCEPT FOR MOL.DPR,DRY, AND VV 
_ WHICH SHOULD BE ONE, AND PGM WHICH IS A DONT CARE. 


-RMER1, IS CHECKED FOR 0; 
eRMAS, IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0; 


—sSRMMIR, IS CHECKED FOR 0, EXCEPT FOR WORD CLOCK, LAST SECTOR, 
AND LAST SECTOR AND TRACK WHICH ARE DONT CARES; 


.RMMR2 IS CHECKED FOR 0, EXCEPT FOR THE TEST BIT WHICH IS 
ONE, AND REQA, REQB WHICH ARE DONT CARES: 


«RMEC2 IS CHECKED FOR 0; 
eRMER2 IS CHECKED FOR 0; 


TEST 20 NOP TEST 
- PURPOSE: 
TO VERIFY THE EXECUTION OF ‘'NOP"’ COMMAND. 
PROCEDURE : | 
COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS 


A_NOP 
IS CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED 
CHANGES IN STATUS. 


TEST 21 OFFSET TEST 


PURPOSE : 
‘TO VERIFY THE EXECUTION OF ‘OFFSET’ COMMAND. 
PROCEDURE : | . 
THE OFFSET COMMAND IS EXECUTED AND THE PROGRAM CHECKS THAT 
OFFSET STATUS, BIT 0 OF RMDS IS SET AND THAT ATTENTION, BIT 15 OF 
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RMDS IS ALSO SET. ADDITIONALLY, CONTROLLER, ADAPTER, AND DRIVE 
STATUS 1S CHECKED FOR UNEXPECTED CHANGES. 


TEST 22 GO/ATA TEST 
PURPOSE : 


TO. VERIFY THAT ‘“‘ATA’’ WILL RESET WITH ‘GO’ PROVIDING 
COMPOSITE ERROR IS INACTIVE. 


PROCEDURE : 


ATTENTION, BIT 15 OF RMDS, IS SET USING AN OFFSET COMMAND 
AND RESET USING A NOP COMMAND. 





TEST 23 WRITE ATA TEST 
PURPOSE : 


TO VERIFY THAT ATTENTION CAN BE RESET BY WRITING THE 
ATTENTION SUMMARY REGISTER, RMAS. 


PROCEDURE : 


ATTENTION IS SET USING AN OFFSET COMMAND AFTER WHICH THE 
IN THE ATTENTION SUMMARY jBEGISTER. VERIFYING 
THT ATTENTION REMAINS SET. FOLLOWING T HE PROGRAM WRITES A 
1 IN RMAS AND VERIFIES THAT ATTENTION Resets” 














TEST 24 ERROR/ATA TEST 
PURPOSE : 


TO VERIFY THAT ''GO’' DOES NOT RESET ‘‘ATA’’ WHEN THERE: IS A 
COMPOSITE ERROR. 


PROCEDURE : 
ATA’ IS SET WITH AN OFFSET COMMAND AFTER WHICH ONE OF THE 
H NOP COMMAND AND 


ERROR BITS JIS SET. THE THEN ISSUES A 
VERIFIES THAT THE ATTENTION BIT REMAINS SET. 





ee 


SEQ 0016 





—_—_———————— ee ee — — = 
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799 
800 TEST 25 PROGRAM INTERRUPT TEST 
80 PURPOSE : 
804 TO VERIFY THAT THE RM8O SUBSYSTEM WILL GENERATE A PROGRAM 
805 INTERRUPT WHEN PROCESSOR PRIORITY IS LESS THAN CONTROLLER 
806 PRIORITY AND INTERRUPT IS ENABLED. 
B08 PROCEDURE : 
81 ATTENTION IS SET USING AN OFFSET COMMAND. WITH INTERRUPT 
gi ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY, THE 
gi PROGRAM VERIFIES THAT A PROGRAM INTERRUPT CCCURS. 
81 
81 
+ 
eI TEST 26 INHIBIT INTERRUPT TEST 


PURPOSE : 


TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR WHEN (1) 
PROCESSOR AND CONTROLLER PRIORITY ARE THE SAME AND INTERRUPT IS 
ENABLED OR (2) WHEN PROCESSOR PRIORITY IS LESS THAN CONTROLLER 
AND INTERRUPTS ARE NOT ENABLED. 






2D NAUSWN OC OONAULWNO 





PROCEDURE : 

ATTENTION IS SET USING AN OFFSET COMMAND WITH THE PRIORITY 
OF THE PROC S THE IT ONT 
INTERRUPT IS 


E 
INTERRUPT DOES NOT OCCUR. 
PRIORITY IS LOWERED AND 
INTERRUPT DOES NOT OCCUR. 


TEST 27 RETURN TO CENTERLINE TEST 
PURPOSE : 
TO VERIFY THE EXECUTION OF “RETURN TO CENTERLINE’’ COMMAND. 
PROCEDURE : 
THIS TEST ISSUES AN RTC COMMAND AND VERIFIES THAT OFFSET 


STATUS, BIT 0 OF RMDS IS RESET AND THAT ATTENTION, BIT 15 OF RMDS 
1S SET. UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED. 





MMII 


UP WUIOOONOME WO oC : 
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§ TEST 30 READ IN PRESET TEST 

S29 PURPOSE : 

re TO VERIFY THE EXECUTION OF ‘READ IN PRESET‘’’ COMMAND. 

Pres PROCEDURE : 

864 THIS TEST LOADS NON ZERO VALUES IN THOSE ADAPTER REGISTERS 

865 WHICH ARE INITIALIZED BY THE READ IN E ia 
EXECUTES THE COMMAND AND VERIFIES THE CONTENTS OF EACH REGISTER. 


THE FOLLOWING REGISTERS ARE CHECKED: 


-RMDA THE DISK ADDRESS REGISTER, IS LOADED WITH ALL 
£70 | | ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND; 

872 .RMOC THE DESIRED CYLINDER REGISTER, IS gi QADED WITH 
3 ALL ONES (001777) AND VERIFIED TO BE ZERO AFTER THE COMMAND ; 
875 .RMOF THE OFFSET REGISTER, IS PRESET (TO 017200) AND 

7 VERIFIED TO BE ZERO AFTER THE TEST: 


PURPOSE : 
TO VERIFY THAT 


PROCEDURE : 


OFFSET MODE IS 
WRITING RMDC. 


PURPOSE : 


FUNCTIONS. 
PROCEDURE : 


Sete aS S SNES St to J it eR 


32388 


— 
N 


TEST 31 RMDC CLEAR OFFSET TEST 


WRITING THE DESIRED CYLINDER REGISTER (RMDC) 


WILL CLEAR OFFSET MODE. 


SET USING THE OFFSET COMMAND, THEN RESET BY 


TEST 32 ILLEGAL FUNCTION TEST 


TO VERIFY THAT THE RM80 SUBSYSTEM DETECTS ALL ILLEGAL 


EACH ILLEGAL FUNCTION CODE IS EXECUTED WITH THE PROGRAM 
VERIFYING THAT “ILLEGAL FUNCTION’ STATUS, BIT 0 OF RMER1 IS SET 
FOR EACH CODE. THE S AL 
ILLEGAL FUNCTION TEST. 


UBSYSTEM IS INITIALIZED PRIOR TO EACH 


SE@ 0018 


A 7 


G 2 
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TEST 33 INVALID COMMAND TEST 
PURPOSE : 
TO VERIFY IVC ERROR DETECTION. 
PROCEDURE : 
ree "a HEEL SEE ESO MBE ROE, LN 


PROCESS IS REPEATED FOR EACH ODE, WITH IVC BEING 
CHECKED ACCORDING TO THE FUNCTION. 






TEST 34 INVALID ADDRESS ERROR TEST 
PURPOSE : 
TO VERIFY IAE ERROR DETECTION. 
PROCEDURE : 


THE TEST EXECUTES EACH FUNCTION CODE WITH RMDA, AND RMDC SET 
TO ILLEGAL ADDRESSES, AND VERIFIES IAE ACCORDING TO THE FUNCTION. 


TEST 35 WRITE LOCK ERROR TEST 
PURPOSE : : 

TO VERIFY WLE ERROR DETECTION. 

PROCEDURE : 
THE TEST SIMULATES WRITE PROTECT USING MAINTENANCE WRITE 


PROTECT AND VERIFIES WLE ACCORDING TO THE FUNCTION BEING 
EXECUTED. EACH FUNCTION CODE IS TESTED. 


TEST 36 ERROR ABORT TESTS 
PURPOSE : 
TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION. 


ee 


SEG 0019 
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970 PROCEDURE : 


9 | TEST 37 RMR TEST 
981 PURPOSE : 


PROCEDURE: 


TEST 40 PARITY ERROR TEST 
PURPOSE : 


PROCEDURE : 


LER PRP RPS AAE LT ot ito 


PURPOSE : 


oad eld eed ee eee eed Sd eed coe ee ee SD ed eed ed ed eth eed ed cee ed eed eed ed eed ed sh 


RM80 
PROCEDURE : 


eh ced cond cod Td wach ened 225 so am 






STATUS, B 
NOTE THAT 
ADDRESS 


TEST 41 ILLEGAL REGISTER TEST 


2 


EACH FUNCTION CODE IS 
CONDITION AND THE TEST VERIFIES THAT GO IS RESET. 


TO VERIFY THAT RMR ERROR IS DETECTED. 


THE TEST EXECUTES A_NOP COMMAND WITH 
ame GO SET, THE TEST WRITES RACSI, VERIFYING THAT RMR ERROR 


TO VERIFY THAT PARITY ERRORS ARE DETECTED. 


WITH PAT SET TO CAUSE BAD PARITY ON THE CONT BU TRE 
TEST WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT 
AN ERROR IS DETECTED BY THE RM80 FOR EACH PATTERN. 


EACH REGISTER ADDRESS IS _ ACCESSED 
IT 1 OF RMER1 IS CHECKED ACCORDING TO THE ADDRESS 
THE ot ide OF ms (her IS DEPENDENT ON THE REGISTER 


ONTROLLER BECAUSE THE RANGE OF 
ILL RESPOND TO IS LIMITED BY THE 





J 
ADDRESSES WHICH THE CONTROLLER W 
WAY THE JUMPER IS CUT 


EXECUTED UNDER 


ee ere 


SIMULATED UNSAFE 


DEBUG CLOCK ENABLED. 


TO VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES BY THE 
SUSBSYSTEM. 


ILLEGAL REGISTER 


USED. 


SE@ 0020 


Serer ie 





— 
© 
~~ 
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* ath A) 
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SEEK TESTS (42 = 52) 
PURPOSE : 





THE PURPOSE OF EACH OF THE FOLLOWING SEEK TES7S IS TO VERIFY 
THE EXECUTION OF SEEK OPERATIONS BY THE RM8O SUBSYSTEM USING A 
SET OF ADDRESSES THAT TEST THE ADAPTER/DEVICE INTERFACE AND 
ELECTROMECHANICAL HEAD POSITIONING HARDWARE. 


PROCEDURE : 
EACH pest WILL RECALIBRATE THE DRIVE IF ‘PIP’ OR ‘’SKI‘’ 
















ACTIVE. FOL THAT, THE TEST EXECUTES A SEEK TO A CYLINDER 
ADDRESS OR SERIES OF ADDRESSES THE COMPLET! EACH SEEK 
OPERATION S nate 15" T STORED AND THE TEST CHECKS FOR 
PRIMARY E ERRORS OHI CH PRECLUDE FURTHER CHECKING. IF THERE 


ERROR 
ARE NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL ERRORS 
THEN SECONDARY ERRORS. 


TEST 42 SEEK TO FIRST CYLINDER TEST 
THIS TEST SEEKS TO THE FIRST CYLINDER. 


TEST 43 SEEK TO LAST CYLINDER TEST 
THIS TEST SEEKS TO THE LAST CYLINDER. 


‘TEST 44 SEEK PRIME CYLINDERS TEST 





THIS TEST SEEKS FORWARD TO me 5 PRIME CYLINDER ADDRESS, I.E. 
CYLINDERS 1, 2, 4, 8, 16, 32. 64, 128, 256 AND se. 


TEST 45 SEEK ZERO DIFFERENCE TEST 
THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER 0. 


eed ced ee ced eed ed ceed 
te 


SUSUR UAASSSLSSRENISSSLseEsss 


MEU $9 OO NOUS WINS 


— 


ee ce ed ceed ed eed ed eed ed ced eed el ed eed ed eed ce eee ce ee en ced cee ed eed ee ed ce ee ce ed cee ed ced ed ee ed ed ed ced eed ed ee ed eed eed eed ed ed 
Wa 


ed ced ed enh eed eed eed eed ed eed ceed ed ed ce cee ee ed ce ed eed eed eed cee ed eed ee ed ee eed eed eed od ed ed ed eed ed eed aed 3 ed 
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TEST 46 SEEK MAXIMUM DIFFERENCE FORWARD 


THIS TEST DOES oh 8 ECALIBRATE COMMAND, REGUARDLESS OF THE 
CONDITION OF ‘PIP ‘SkI'’, AND THEN EXCUTES A SEEK TO THE LAST 





TEST 47 SEEK ADJACENT FORWARD TEST 


THIS TEST SEEKS TO CYLINDER 0, FOLLOWED BY A SEEK TO THE 
ADJACENT FORWARD CYLINDER, I.E., CYLINDER 1. 


TEST 50 SEEK ADJACENT REVER.: TEST 


THIS TEST SEEKS TO CYLINDER 1, FOLLOWED BY A SEEK TO THE ADJACENT 
REVERSE CYLINDER, I.€., CYLINDER 0. 


TEST 51 SEEK TO INVALID SECTOR TEST 


WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE PROGRAM 
SEEKS TO CYLINDER 0, TRACK 0, FOR EACH INVALID SECTOR ADDRESS AND 
VERIFIES THAT INVALID ADDRESS ERROR SETS FOR EACH SECTOR. THE 
TEST IS REPEATED FOR 16 BIT FORMAT. 


TEST 52 SEEK TO INVALID TRACK TEST 


THE TEST SEEKS TO EACH INVALID TRACK ADDRESS WITH CYLINDER 
AND SECTOR ADDRESS SET TO 0 AND VERIFIES THAT INVALID ADDRESS 
ERROR SETS FOR EACH TRACK ADDRESS. 


TEST 53 SEEK TO INVALID CYLINDER TEST 


THE PROGRAM SEEKS TO EACH INVALID CYLINDER ADDRESS WITH THE 
SECTOR K Q AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS. 





SEQ 0022 





2 
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TEST 54 IVC SEEK TEST 
PURPOSE : 


TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2 SETS 
WHEN VOLUME VALID IS INACTIVE DURING A SEEK COMMAND. 


PROCEDURE : 
THE TEST RESETS VOLUME VALID BY SETTING AND RESETTING 


DIAGNOSTIC MODE, THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT 
“IvC'’ STATUS IS SET. 





TEST 55 ABORT SEEK TEST 
PURPOSE : 


TO VERIFY THAT THE RMB80 INHIBITS A SEEK WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 


PROCEDURE : 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
SEEK COMMAND, VERIFYING THAT ‘PIP’’ REMAINS INACTIVE. 


TEST 56 SEEK AT OFFSET 
PURPOSE : 


one TO VERIFY THAT OFFSET MODE DOES NOT CAUSE ERRORS DURING 


PROCEDURE : 


THE TEST EXECUTES AN OFFSET COMMAND THEN EXECUTES A SEEK 
COMMAND, VERIFYING THE RESULTS OF THE SEEK. 


TEST 57 LOOK AHEAD TEST 
PURPOSE : 


ed ce eed cee cnet ee cee co cal od cee we ee eee ceed ee ced cee ce ce ee ee eed ee SD ee me ee ee ee eh ee eee ee ee we cre ee ed a eee et ed ee ee ee SP wed cee ed ceed eed weed eed Cd 
med eed coed cond ced ce coe cen ec aD ceed cnet ee ce edd eed ed eed ed ee ee ed eed ee ee ee ee ee eed ee ed ee ce ee ee ct ce ed eee ed ed ce ed ce wee eed eed ed ee ee eed eed eed ed eed 


ee 
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SEQ 0023 


—— 
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$2 


TO INSURE THAT THE SECTOR COUNT WHICH ORIGINATES AT THE 
Te rion IS VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS 


PROCEDURE : 


WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT PROGRAM 

SAMPLES THE LOOK AHE REGISTER AND COLLECTS Each DIFFERENT 

SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR UNTIL 
Ss TAKEN. THE COLLECTION Mb lt, TO DETERMINE 


- 
_ 









RANGE OF VALID TORS. THE SAME PR 
BIT FORMAT. WHERE THE LIMIT ON THE NUMBER OF SAMPLES IS 32. ALSO 
16 IT FORMAT. WITH SSEI SET, WHERE THE LIMIT ON THE NUMBER OF 


TEST 60 SEARCH ON CYLINDER 
PURPOSE : 
TO VERIFY THE EXECUTION OF SEARCH OPERATIONS WITH NO HEAD 
MOTION USING THE SECTOR PULSE FOR SECTOR COMPARE. 
PROCEDURE: 
THE TEST INTIALIZES AND RECALIBRATES THE DRIVE IF ‘PIP’ OR 
‘cxt'* IS ACTIVE THEN SEEKS TO CYLINDER 0. THE TEST THEN DOES A 


_ SEARCH TO EACH SECTOR AND VERIFIES THAT SEARCH COMPLETES 
WITHOUT ERROR. THIS TEST IS DONE IN 16 BIT FORMAT WITH SSEI SET. 





od eed aed and od aed 
ARONSON PUN PODONAMNE NUM OSR OR AROS 


ee ed eed ee cee cee ceed ee ee cee ch et me cee end me meee me mee ee ed ee ee ce mee ee en SD ee me cc ee ee ee ee ee ed eee eed we eed ed weed ed eed ed eed ed ed eed Cd 


: TEST 61 SEARCH OFF CYLINDER 
vt PURPOSE : 
4 TO VERIFY THE EXECUTION OF A SEARCH COMMAND WITH IMPLIED 
re HEAD MOTION. 
45 PROCEDURE : 
“7 THE DRIVE IS RECALIBRATED AND INITIALIZED IF ig | DRIVE IS 
& OFF CYLINDER OR HAS A SEEK BRR THE PR T XECUTES AN 
4 EXPLICIT SE ae TO cranes 27 "te FOLLOWED BY A SEARCH TO CYLINDER 
50 » SECTOR THE, NE SECTOR IS SEARCHED FOR BY AN 
1 pxpictr Seek’ TO EYLINDER > 8., XTOLLOWED BY A_SEARCH TO CYLINDER 
¢ TRACK SECTOR UNTIL ALL SECTORS HAVE BEEN 
SEARCHED. THE TEST IS DONE rR “46 BIT FORMAT WITH SSEI SET, WHERE 
54 THE LAST SECTOR SEARCHED IS 31 


—_— 


SEQ 0024 
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ree... 


TEST 


TEST 


62 SEARCH INVALID SECTOR 
PURPOSE : 


: TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS DURING 
A SEARCH OPERATION. 


PROCEDURE : 


THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. WITH THE OFFSET REGISTER SET FOR 
18 BIT FORMAT, THE PR EXECUTES A SEARCH TO EACH INVAL 
SECTOR,1.E..SECTORS 30. AND 31. HA 
RROR ‘SETS FOR EACH SECTOR. THIS TEST 


E IS EXECUTED IN 16 BIT 
FORMAT, WHERE SECTOR 31. IS THE INVALID SECTOR 


n= 
m 


63 SEARCH INVALID TRACK 
PURPOSE : 


TO VERIFY THE DETECTION OF AN INVALID TRACK ADDRESS DURING A 
SEARCH OPERATION. 


PROCEDURE : 


DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS _ OFF 
A SEEK E - THE PROGRAM EXECUTES A SEARCH TO 

, ESS WITH THE CYLINDER ADDR 2 

Rita QO AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR 





TEST 64 SEARCH INVALID CYLINDER 


PURPOSE : 


TO VERIFY THE DETECTION OF AN INVALID CYLINDER ADDRESS 
DURING A SEARCH OPERATION. 


PROCEDURE: 


THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS _ OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES A SEARCH 
TO EACH INVALID CYLINDER ADDRESS AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER. | 


A 


SEG 0025 


EE 
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TEST 65 IVC SEARCH TEST 


TEST 67 SEARCH AT OFFSET TEST 

PURPOSE : ; | 
TO VERIFY THAT OFFSET MODE DOES NOT ‘CAUSE SEARCH ERRORS. 
PROCEDURE : | 


THE TEST EXECUTES AN OFFSET per Ty EXECUTES A_ SEARCH 


COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH. 


PURPOSE 

TO VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID 
IS INACTIVE DURING A SEARCH COMMAND. 
PROCEDURE : 

VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE, AFTER WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING 
THAT ““Ivc'’ STATUS SETS. 

F 
TEST 66 ABORT SEARCH TEST 

PURPOSE : 

TO VERIFY THAT THE RM80 INHIBITS A_ SEARCH WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 
PROCEDURE : 

THE TEST SETS AN ERROR I HE ERROR REGISTER AND ISSUES A 
SEARCH COMMAND, VERIFYING THAT PIP’* REMAINS INACTIVE. 
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s*LAST REVISION 19-OCT-81 

- TITLE cen FCTNL PT1 
: *COPYRIGHT (C) 

: *DIGITAL ee 0 CORPORATION 
: ;* COLORADO SPGS., CO. 80919 
; #PROGRAN BY MIKE LEAVITT 


THIS PROGRAM WAS ASSEMBLED USING THE -_ MAINDEC 5YSMAC 
; PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR 


*SBTTL OPERATIONAL SWITCH SETTINGS 


;* 

‘* SWITCH USE 

3* 15 HALT ON ERROR 

3* 14 LOOP ON TEST 

3* 13 INHIBIT ERROR TYPEOUTS 
3* 12 UNU 

3* 11 INHIBIT ITERATIONS 

3% 10 BELL ON ERROR 

3* 2 LOOP ON ERROR 

3* . LOOP ON TEST IN SWR<7:0> 
:* i inige 

3* 5 1NS3 

ze 4 TN16 

3* 3 TN8 

3% 2 T™N4 

3* 1 TN2 

;* 0 T™N1 


-SBTTL BASIC DEFINITIONS 
s* INITIAL + OF THE STACK POINTER *** 1100 xx 


STACK = 
ERROR = EMT :sBASIC DEFINITION OF ERROR CALL 
SCOPE = IOT :sBASIC DEFINITION OF SCOPE CALL 


*MISCELLANEOUS DEFINITIONS 
HT = 11 : 3 CODE ro en mee TAB 
1 :;CODE FOR LINE FEED 

1 ;3;CODE FOR CARRIAGE RETURN 


= C 
= 200 *:CODE FOR CARRIAGE RETURN-LINE FEED 
= 177776 *:PROCESSOR STATUS WORD 
= 177774 zsSTACK LIMIT REGISTER 
= 17777 *PROGRAM INTERRUPT REQUEST REGISTER 
= 17757 * SHARDWARE SWITCH REGISTER 
= 177570 * sHARDWARE DISPLAY REGISTER 
- *GENERAL SE REGISTER DEFINITIONS 
RO = % ;;GENERAL REGISTER 
R1 = %1 *GENERAL REGISTER 
R = Xe GENERAL REGISTER 
R = ¥% * <GENERAL REGISTER 


a - _ 
. — 
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BASIC DEFINITIONS 








R4 = %4 
5 R5 = %5 

R6 = x6 

Sa 

: 

-*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 : :PRIORITY LEVEL 0 
000040 PR1 = 40 *=PRIORITY LEVEL 1 
900100 PR = 100 *:PRIORITY LEVEL 4 
00014 PR = 140 *:PRIORITY LEVEL 

PR4 = 200 s:PRIORITY LEVEL 4 
000 40 PR5 = 240 *:PRIORITY LEVEL 5 

PR6 = 300 *:PRIORITY LEVEL 6 
000340 PR? = 340 *:PRIORITY LEVEL 7 


3*'SWITC 


H 
= 
. 
= 
= 
= 
: 
= 


R 
1 
4 
r4 
1 
4 
2 
1 
4 
r4 
1 
4 
2 
1 
& 
2 
1 


GISTER’’ SWITCH DEFINITIONS 


sete 


- «DATA 
BIT15 





—_—— o— ee _— 













BIT04 = 20 
BITS = 10 
gol = 3 

1700, = 1 
Sis 
Sesh 3 

116=B1T 
BIT5=BIT 
BIT4=BI1T 
B1T3=B1T03 
BIT2=BIT02 
BIT1=B1T01 
B1TO=B1T00 

;*BASIC "'CPU TRAP VECTOR ADDRESSES 

ERRVEC = 4 :TIME OUT AND OTHER ERRORS 

RESVEC = 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TRIVEC = 14 TRACE TRAP 

BPTVEC = 14 : :BREAKPOINT TRAP (BPT) 

IOTVEC = 20 - $EINPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEC = 24 sPOWER FAIL 

EMTVEC = 30 :SERULATOR TRAP (EMT) **ERROR«* 
TRAPVEC = TR TRAP 

TKVEC = 60 ::TTY KEYBOARD VECTOR 

TPVEC = 64 *:TTY PRINTER VECTOR 

PIRQVEC = 240 * PROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL RM80 REGISTER BIT DEFINITIONS 

:*RMCS1 CONTROL STATUS REGISTER 

DVA = DEVICE AVAILABLE-READ ONLY 
F4 2 “FUNCTION CODE 

3 = =FUNCTION CODE 

F2 s ‘FUNCTION CODE 

F1 : *FUNCTION CODE 

FO = ‘FUNCTION CODE 

GO = :G60 BIT 

FNCMSK = ‘FUNCTION CODE MASK 

: FUNCTION (BITS 01-05 OF Recs) 

ILFO2 = 

S=EK = *SEEK COMMAND 

RECAL = *RECALIBRATE COMMAND 
DRVCLR = ‘DRIVE CLEAR COMMAND 
RLEASE = *RELEASE COMMAND 

OFFSET = “OFFSET COMMAND 

RTC E “RETURN TO CENTERLINE COMMAND 
RIP sREAD IN PRESET COMMAND 
PAKACK = “PACK ACKNOWLEDGE C 
PACACK = 

LF24 = s ILLEGAL COMMAND 

ILF26 = ‘ILLEGAL COMMAND 





ee 
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508 SEARCH = : SEARCH COMMAND 
511 ILF > S ILLEGAL COMMAND 
ILF = s ILLEGAL COMMAND 
ILF : ZILLEGAL COMMAND 
ILF = SILLEGAL COMMAND 
ILF40 = ZILLEGAL COMMAND 
ILF42 = SILLEGAL COMMAND 
ILF446 = Z ILLEGAL COMMAND 
ILF46 = SILLEGAL COMMAND 
512 WCD = “WRITE CHECK DATA COMMAND 
51 WCH 2 sWRITE CHECK HEADER AND DATA 
314 ILF54 = sILLEGAL COMMAND 
15 ILF56— = ‘ILLEGAL COMMAND 
516 WD = : DATA COMMAND 
51 WH = “WRITE HEADER AND DATA COMMAND 
518 ILF64 = 31 COMMAND 
519 ILF66 = 31 
5 RD = ; OMMAND 
521 RH = sREAD HEADER AND DATA COMMAND 
4 : ILF74 = s ILLEGAL COMMAND 
5 ILF76 == : 
5 :*RMDA DISK ADDRESS REGISTER 
5 6 -TRACK ADDRESS DEFINITIONS 
528 004 TAS = BIT11 :TRACK ADDRESS 8. 
5 002000 TAG = B] STRACK ADDRESS 4 
5 001000 TA2 = BIT = TRACK ADDRESS 2 
38 000400 TAI = BIT s TRACK ADDRESS 1 
538 sSECTOR ADDRESS DEFINITIONS . 
5 000020 SAi6—s«é=«‘ BIT :SECTOR ADDRESS 16. 
535 900010 SA8 = BIT = SECTOR S 8. 
5 SA4 = BIT “SECTOR ADDRESS 4 
5 000002 SA2 = BIT “SECTOR ADDRESS 2 
5 8 000001 SAI = BITO0 “SECTOR ADDRESS 1 
220 -TRACK & SECT MASKS 
541 1774 TADMSK = 99 s TRACK ADDRESS MASK 
24 0003 SADMSK = 0003 “SECTOR ADDRESS MASK 
: s*RMDS DRIVE STATUS REGISTER 
1 ATA = BIT15 sATTENTION ACTIVE 
ERR = BIT14 “COMPOSITE ERROR 
PIP = BIT1 *POSITIONING IN PROGRESS 
1 MOL = BIT1 ‘MEDIUM ON LINE 
20 WRL = BIT1 “WRITE LOCK 
1 LBT = BIT1 *LAST BLOCK TRANSFERRED 
26 PGM = BIT ; 
5 DPR = BIT “DRIVE PRESENT 
34 DRY = BIT “DRIVE READY 
5 VV = BIT *VOLUME VALID 
3 OM = BIT “OFFSET MODE ACTIVE 
:*RMER1 ERROR REGISTER #1 


al 
6 
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F 
















560 1 DCK = BIT15 :DATA CHECK ERROR 
561 04 UNS = BIT14 *DRIV 
39¢ ; OPI = BIT13 ‘OPERATION INCOMPLETE 
56 910 OTE = BIT12 [DRIVE TIMING ERROR 
564 WLE = BIT11 ‘WRITE LOCK ERROR 
565 00 AE = BIT10 S INVALID ADDRESS ERROR 
566 1 AOE = BIT09 SADDRESS OVERFLOW ERROR 
56 HCRC = B1T08 sHEADER CRC ERROR 
568 HCE = BITO ; 
1 ECH = BIT06 CC 
570 WCF = BITO ‘WRITE CLOCK FAILURE 
51 20 FER = BIT04 “FORMAT ERROR 
Ls 1 PAR = BITO3 “PARITY ERROR 
5 = BITO2 “REGISTER MODIFICATION REFUSED 
574 2 ILR = BITOI ‘ILLEGAL REGISTER 
373 000001 ILF = BIT00 “ILLEGAL FUNCTION 
57; 115760 ND ; DCK!DTE!WLE! AOE !HCRC!HCE!ECH!WCF!FER 
578 :"NDTMSK"’ IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA 
(79 :C , IeE., HOUSEKEEPING AND POSITIONING COMMANDS 
581 :*#RMAS ATTENTION SUMMARY REGISTER 
2 000377 ATNMSK = 377 sMASK FOR ATTENTION BITS 
$8 :*RMLA LOOK AHEAD REGISTER 
8 002000 SC4 = BIT10 :SECTOR COUNT = 16 
001000 SC3 = BITO9 *SECTOR COUNT = 8 
00 SC2 = BIT ‘SECTOR COUNT = 4 
000200 SCI = BIT “SECTOR COUNT = 2 
31 100 SCO = BIT *SECTOR COUNT = 1 
93 003700 SCTMSK = 003700 :SECTOR COUNT MASK 
95 :*RMMR1 MAINTENANCE REGISTER #1 
38 “WRITE ONLY BITS 
98 back = BIT15 :DEBUG CLOCK | 
= BIT14 ‘DEBUG CLOCK ENABLE 
DEBE = BIT13 ‘DIAGNOSTIC END OF BLOCK 
DTO = BITIe “DIAGNOSTIC TIMEOUT 
MCLK = BIT1 {MAINTENANCE CLOCK 
MRD = BIT1 sREAD DATA 
MUR = BIT “UNIT READY 
5 moc = BIT “ON CYLINDER 
MSER = BIT *SEEK ERROR 
= BIT “DRIVE FAULT 
MS = BIT ‘SECTOR PULSE 
= BIT “WRITE PROTECT 
= BIT ; INDEX PULS 
61 = BIT 
= BIT “DIAGNOSTIC MODE 
ei “READ ONLY aITs 
61 occ = BIT1 :OCCUPIED 
616 RG = BIT14 ‘RUN AND GO 





a — 


SEG 0031 


ee — — 


G 3 
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EBL = BIT1 :END OF BLOCK 
REX = BIT1 = EXCEPTION 
ESRC = BIT1 sENABLE SEARCH 
PLFS = B1T10 LOOKING FOR SYNC 
ECRC = BIT 3E C | 
PDA = BITO8 :DATA AREA 
PMA = B1T07 HEAD 
CONT = BIT : CONTI 
we = BITO :WORD CLOCK 
EECC = BITO4 sENABLE ECC OUT 
MWD = BIT03 ‘WRITE DATA BIT 
LS = BIT02 “LAST SECTOR 
LST = BITO1 ‘LAST SECTOR AND TRACK 
DMD = BIT00 ‘DIAGNOSTIC MODE 
:*RMDT DRIVE TYPE REGISTER 
1 NSA = BIT15 sNOT SECTOR ADDRESSED = 0 
6 0% TAP = BIT14 :TAPE DRIVE = 0 
6 2 MOH = BIT13 VING HEAD = 1 
6 004 DRQ = BIT11 “DRIVE REQUEST REQUIRED 
03 s*RMOF OFFSET REGISTER 
64 010000 FMT16 == BIT12 16 BIT WORD FORMAT 
64 ECI = BIT11 “ECC INHIBIT 
64 HC = BIT10 sHEADER COMPARE INHIBIT 
644 1 SSEI = BITOS * SKIP gis ERROR INHIBIT 
ecg 000 OFD = BIT07 “OFFSET FORWARD 
g s*RMDC DESIRED CYLINDER ADDRESS REGISTER 
: 001777 CYLMSK = 001777 sMASK FOR CYLINDER ADDRESS 
s*RMMR2 MAINTENANCE REGISTER #2 
sREAD ONLY BITS 
6 ROA = BIT15 EQUEST 
° RQB = BIT14 EQUEST 
TAG = BIT13 TROL 
6 TST = BITI2 SEQUENCE TEST BIT 
cc = BIT11 YLINDER TAG 
CH = BIT10 
= BIT 
= BIT 
= BIT 
= BIT 
= BIT 
= BIT 
3 = BIT 
= BIT 
= BIT 





Bs 
iT} 
ies] 
— 
~4 
od 


STAG BUS 


s*RMER2 ERROR REGISTER 2 
100000 BSE = BIT15 sBAD SECTOR ERROR 


SESE 


eee eT ~—— - 
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IT DEFINITIONS 


CZRNDAO RM8O F 


















667 SKI = BIT14 
OPE = BIT13 
Ivc = BITI2 
6 LSC = BIT11 
671 LBC = BIT1 
6 DVC = BITO 
6 SSE = BITOS 
or DPE = BITOS 
67 -S8TTL PROGRAM MNEMONICS 
or8 ysis MSE = BIT15 MANUF ACT 
6 04 USE = BIT14 SUSER DETECTED SECTOR ERROR 
on 020000 SSF = BIT13 “SKIP SECTOR FAILURE 
-SBTTL RMBO REGISTER INDEX VALUES 
= 00 sCONTROL STATUS REGISTER #1 
5 = °6 “DISK ADDRESS REGISTER 
= 1 “DRIVE STAT STER 
= 14 sERROR REGISTER #7 
= 16 sATTENTION SUMMARY REGISTER 
= : LOOK AD REGISTE 
6 = 24 “MAINTENANCE REGISTER 
69 = “DRIVE TYPE REGISTER 
O36 = sSERIAL NUMBER REGISTER 
69 RMOF = [OFFSET REGISTER 
694 = “DESIRED CYLINDER REGISTER 
695 RMR = *HOLDING REGISTER 
O78 Ts =4 “MAINTENANCE orek TER #2 
9 RME = 42 SERROR REGISTER # 
oo8 RMEC1 = 44 sECC POSITION REGISTER 
aCe = 4 sEC ER 
2 I = 5 ZILt 
tress = 3a ‘TLL 
= e 
ears = 36 ett 
= ; 
s+ = re sILt 
ILRG64 = 64 sILt 
ILR = sILL 
ILRG = 7 ILL 
ILRG =7 sIlt 
ILRG74 = 74 sILt REGISTER 74 
ILRG76 = 76 s ILLEGAL REGISTER 76 
IDXMSK = 77 sMASK FOR REGISTER INDEX NUMBER 





5 
-SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
s*RMCS1 CONTROL STATUS REGISTER #1 





ony 1 = BIT15 + SPECIAL CONDITION-READ ONLY 
4 = BIT14 ; FER ERROR 
$ = BIT13 sMASSBUS CONTROL BUS PARITY ERROR-READ ONLY 
= oO ;PORT B SELECT 
14 = BIT ADDRESS EXTENSION 





RATAAIIVAI SIG 
_ a&NAULSWNOVOe~nyouvul 





BIT DEFINITIONS 
Al6 = BITO 
RDY = BIT 
IE = BIT 


; a 


ADDRESS 2 or 
ADY-READ 
‘INTERRUPT ENABLE 


s*RMCS2 RH CONTROL STATUS REGISTER #2 


sDATA_LATE“READ ONLY 

WRITE ayy aa ONLY 
;UNIBUS P OR 

:NONEXI STANT DRIVE-READ ONLY 

;NONEXISTANT MEMORY-READ ONLY 
“READ ONL 


sPROGRAM_ERROR 
;MISSED TRANSFER 
;MASSBUS DATA BUS PARITY ERROR-READ ONLY 
[OUTPUT READY-READ ONLY 
; INPUT READY-READ ONLY 
: CONTROLLER CLEAR 
SUNIBUS ADDRESS INCREMENT INHIBIT 
:UNIT SELECT 

UNIT SELECT 
SUNIT SELECT 









sUNIT SELECT MASK 


s*RMCS3 RH70 CONTROL STATUS REGISTER #3 


DLT = BIT15 
WCE = BITI4 
UPE = BIT13 
NED = = BIT12 
NEM = BITI1 
PGE §§ = BIT10 
MXF § = BITO9 
MDPE = BITO8 
OR = BITO 
IR = 81106 
CLR = = BITO 
PAT = BIT04 
BAI = = _BITO3 
U2 = BIT02 
Ul = BITO1 
U0 = BITOO 
UNIT SELECT MASK 
UNTMSK = 7 
APE  _—s«_ =: BIT15 
OPEHI = BIT14 
DPELO = BITI3 
WCEHI = BITI 
WCELO = BITI1 
DBL. «sSss«= BITIO 
IE = BIT 
IPCK3 = BIT 
IPCK2 = BIT 
IPCK1 = BIT 
IPCKO = BIT 
.SBTTL RH C 





sADDRESS PARITY ERROR 
DATA PARITY ERROR HIGH WORD 
DATA PARITY ERROR 
SWRITE CHECK 











TERRUPT ENABL 
SINVERT PARITY CHECK 
; INVERT sanity CHECK 
INVERT PARITY CHECK 
; INVERT PARITY CHECK 





ONTROLLER REGISTER INDEX VALUES 


sCONTROL, STATUS REGISTER #1 
“WORD COUNT REGISTER 

SBUS ADDRESS REGISTER 
“CONTROL, STATUS REGISTER #2 
“DATA BUFFER 

“BUS ADDRESS EXTENSION 
SCONTROL, STATUS REGISTER #3 


:UNIBUS ADDRESS 
SUNIBUS VECTOR ADDRESS AND PRIORITY 





a  - 





SN ee 


J 3 
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TRAP CATCHER 
1 -SBTTL TRAP CATCHER 
000000 


=0 
L UNUSED LOCATIONS FROM . ~- 776 CONTAIN A *'.+2,HALT’’ 
: SSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 
:*LOCATION 9 CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 








000174 
900174 000000 DISPREG: .WORD s:SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD *:SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
000200 000137 005426 JMP a#START ::JUMP TO STARTING ADDRESS OF PROGRAM 
5 000204 000137 005416 JMP a¥STARTI sCHANGE RH/RM BUS ADDRESS 
g .SBTTL ACT11 HOOKS 
fF AAAAAAARAAAAARAEAEKAERAEREREEERERERAEERARAREAREAEEEEEREEREREREREKE 
“HOOKS REQUIRED BY ACT11 
000210 $SVPC=. :SAVE PC 
000046 M312 ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 s2)SET LOC. 532 TO ZERO 
000210 ts RESTORE P 
6 001100 .=1100 
B -SBTTL APT PARAMETER BLOCK 
J SRARARKAAAAAARAEAAERERERAERAREAAAERARERAERERAEREAEEREEREERERRERRE 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
ae 
001100 .$X=. SAVE CURRENT LOCATION 
000024 3526 *:SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 ::FOR APT START UP 
4 .2=44  3:POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 SAPTHDR ::POINT TO APT OCK 
1100 s:RESET LOCATION COUNTER 
seeeeeeanentenennn KETAAEKAAAAAEARAARAEAAARCARARAEAAERAAAAAEREARAARAAKRREEK 
‘SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
s INTERFACE SPEC. 
t 
M é SAAIL 
11 4 : IT (QUICK VERIFY) 
111 4 : FOR EACH ADDED UNIT 
1112 2 ETEND-SHAI L/é 





9 1114 ‘TAGADR=. 


SEQ 0035 
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COMMON TAGS 


0 -SBTTL COMMON TAGS 


& 


eed ed ceed eed eed cd eed coed ceed ed eed ed ed ced ced ced cee eet ed eed eed eed ee eed Wed ceed ee eed eed == ed ed 


ee ce ce ed ee ed ed ee ae ee ed we ce wee ed ee ed ed ed eed ed ed ed od ed ed ed ed od ed ed ed ad ed od od dad 
NNN AAUIMMNULR SES HH 
RUN SSERSSSNUASS RSS N= 


patatatetetototototatetotetatetotototetototetotototototototatototatotototatotetat 


SNAVO 


outeseeEs 


ooo 
—dt awd SJ 
MUN 


S 





sRRAARERRAREEAEREREEARARERAEREREREREREREREEREREREREEEERERERE EEE 
:STHIS tn CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
[*USED IN THE PROGRAM. 


SCMTAG: :sSTART OF COMMON TAGS 

:sCONTAINS THE TEST NUMBER 

:sCONTAINS ERROR FLAG 

ssCONTAINS SUBTEST ITERATION COUNT 

ssCONTAINS SCOPE LOOP ADDRESS 

ssCONTAINS SCOPE RETURN FOR ERRORS 

; NS TOTAL ERRORS DETECTED 
CONTROL BYTE 





TAI 
: TRESERVED=-NOT TO BE USED 


3 sa ae MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


+ sADDRESS OF SWITCH REGISTER 
SS OF DISPLAY REGISTER 
SETTY KBD STATUS 


ss TTY KBD BUFFER 
:zTTY PRINTER STATUS REG. ADDRESS 
sc TTY PRINTER BUFFER REG. SS 
33CONTAINS NULL Soe ge FOR FILLS 
ssCONTAINS # OF FILLER CHARACTERS REQUIRED 
et FILL CHARS. AFTER A “LINE FEED" 
‘TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 


COOOOCOOCCOO—COSC0SCCOSCO 
= 
. 
2 
a) 
og 


a 








N 


DEF INED 

SSUSER DEF INED 

7 USER DEFINED 

> sUSER DEF INED 

*>sMAX. NUMBER OF ITERATIONS 

* ESCAPE ON ERROR ADDRESS 

laa al fe :s CODE FOR BELL 
SQUESTION MARK 

: CARRIAGE RETURN 


COOOSOCO—WOoO 
e@e Se 
e@e @e 
ees 
m 
mm 
aes | 


SCRLF ASCII ti5> 
SLF eASCIZ pi 
 RERREEEREKEEREREREREREREREREREARERREREEERERERERREREREEREREREEEE 


*SBTTL APT MAILBOX-ETABLE 


SL RRRERERERERERAREREREREEAEAEAEREREERARRERERERERAERRERRERERERERERE 
e 

is 
SMSGTY: .WORD 
SFATAL: .WORD 
STESTN: .WORD 





MAILBOX 
AMSGTY HIRE SsAGE TYPE CODE 
AFATAL ;;FATAL ERROR NUMBER 
ATESTIN ;;TEST NUMBER 


eee see a 
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APT MAILBOX-ETABLE 
1 SPASS: .WORD APASS  ;:PASS COUNT 
1 SDEVCT: .WORD ADEVCT : :DEVICE COUNT 
001 IT: :WORD AUNIT ::1/0 UNIT NUMBER 
001 GAD: .WORD AMSGAD : MESSAGE ADDRESS 
1240 SMSGLG: .WORD AMSGLG ::MESSAGE LENGTH 
124 SETABLE: ‘APT ENVIRONMENT TABLE 
00124 000 SENV:  .BYTE AENV : sENVIRONMEN NT BYTE 
00124 100888 : . BYTE AENVM ONMENT MODE BITS 
001244 SSWREG: . ASWREG ::APT SWITCH REGISTER 
001246 000000 SUSWR: .WORD AUSWR SSUSER SWITCHES 
001250 000000 SCPUOP: . ACPUOP iicPU TYPE OPTIONS 
i 11/ =01, 1.11/05=02, 1 11/20=03, ,11/40204,11/45=05 
* BIT 10=REAL TIME CLOC 
8 BIT 9=FLOATING POINT PROCESSOR 
=f BIT 8=MEMORY MANAGEMENT 
001252 000 $MAMS1: .BYTE AMAMS1 ;:HIGH ADDRESS,M.S. BYTE 
00125 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE, BLKA1 
3% him. TYPE BYTE -- onc (HIGH BYTE) 
- NSEC BIPDLAR~002 
= te : NSEC Mo sea 
001254 SMADR1: .WORD ::HIGH ADDRESS 
= MEM.LAST ADDR ~¥ BYTES. THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
001256 SHAMS? .BYTE HIGH ADDRESS,M.S. BYTE 
937 SMTYP2: .BYTE MEM. TYPE, 
60 SMADR2: .WORD MEM.LAST ADDRESS BLK#2 
e62 : .BYTE HIGH ADDRESS,M.S.BYTE 
26 SMTYP3: .BYTE 
264 SMADR3: .WORD T ADDRESS BLKA3 
66 SMAMS4: .BYTE HIGH ADDRESS,M.S.BYTE 


MOMININY 
INO 
NON 


Ka 
BUS PRIORITY#1 
CTORA2BUS PRIORITYA2 


SENOSERS 
esate | 


Ssssesssesessssssssssss 
WWIWA SyN 










RRUPT VE 
E ADDRESS OF EQUIPMENT UNDER TEST 
ICE MAP 


Vv 
TROLLER DESCRIPTION WORDA1 
= CON TROLLER DESCRIPTION WORD#2 
DESCRI WORDAO 


ESCRIPTOR WORD#6 
ESCRIPTOR WORDA7 


CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 7 
USER DEFINED TAGS 


a HE 


-SBTTL USER DEFINED TAGS 
CHGADR: .WORD 0 

MANUAL: . 

XXDP: .WORD 0 


;CHANGE RH/RM BUS ADDRESS = - c = 0 
LE MANUAL INTERVENTION TESTta) 1 
<THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 

OADED. THE H H BYTE CONTAINS THE 


3TH WAS L 
;'XXDP" DEVICE CODE FOR THE 
LSTRK: .BYTE 0 O BYTE = 


tL 
“BYTE 0 ‘HI BYTE, CONTAINS LA r TRACK ADDRESS OF UNIT 
“UNDER TEST. RM8O = 


sTHE REGISTER INPUT BUFFER IS USED FOR 
:STORING DRIVE STATUS 













001336 GE TBUF : 
sREGISTER INPUT BUFFER 

001336 000000 RMCS11: .WORD 0 sCONTROL, STATUS REGISTER #1 
001340 000000 -WORD 0 ‘WORD COUNT REGISTER 
001342 000000 WORD 0 “BUS ADDRESS REGISTER 
001344 000000 WORD ‘DISK ADDRESS REGISTER 
001 000000 .WORD 0 * CONTROL STATUS REGISTER #2 
001390 000000 .WORD 0 “DRIVE Status ISTER 
001352 000000 WORD 0 ER Seelst nee 
001354 000000 WORD *ATTENTION SUMMARY REGISTER 
001356 000000 WORD *LOOK AHEAD REGISTER 
001360 000000 WORD *DATA BUFF 
001362 000000 WORD *MAINTENANCE REGISTER #1 
001364 000000 .WORD 0 ;DRIVE TYPE STER 
001366 000000 RMSNI: .WORD 0 REGISTER 
001370 000000 RMOFI: .WORD 0 *OFFSET RE 
001372 000000 RMDCI: .WORD ;DESIRED CYLINDER REGISTER 
001374 000000 RMHRI: .WORD NG REGISTER 
001376 000000 1: WORD ; MAINTENANCE REGISTER #2 
001400 000000 RMERZI: .WORD 0 ROR TER # 
001402 000000 RMECTI: .WORD 0 SECC POSITION REGISTER 

1404 000000 RMEC2I: .WORD 0 ; EGISTER 

1406 000000 1: WORD *BUS ADDRESS EXTENSION REGISTER 

1410 000000 RMCS31: .WORD 0 *CONTROL, STATUS REGISTER #3 


ag 8 


nare@ eck sod sed ed sordh sew ed anob nk od 
wad. vex wands 
Gen 


I I 
= 











;THE REGISTER OUTPUT BUFFER IS USED FOR 
SASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 
esse OUTPUT BUFFER 


RMDAO: 
mmo 
RMDSO: 
RMER10: 
RMASO: 
RMLAO: 
RMDBO: 
RMMR10: 







sCONTROL, STATUS REGISTER #1 
;WORD COUNT REGISTER 

:BUS ADDRESS REGISTER 
DISK aor Eth REGISTER 
3CONTR "SfATUS Re ortten #2 


:ERROR EGISTER # 

TTEN TION a cret oe 
‘(00K AHEAD REGISTER 
;DATA_BUFFER 
;MAINTENANCE REGISTER #1 


OOooso0ocoecde& 
noe 
ag 
cme 
<-— 
me 
nue 


SEQ 00356 


— 


CZRNDAO RM8&O 44 PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 7-1 SEG 0059 


RIAL wee REGISTER | 
sOFFSET REGISTER | 
;DESIRED CYLINDER REGISTER 
imath ING REGISTER 
; MAINTENANCE ons TER #2 


ROR 
Af POSITION. REGISTER 


: ‘DRIVE, TYPE REGISTER | 





Oooooeo 
«® 
m 
o 
o 
wv 
=a» 
~ 
2 
z 
m 
(>) 
fess 
~” 


S EXT 
CONTROL, STATUS REGISTER # 


sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 

; THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE “wiry OF THE DEVICE UNDER TEST 

:IN 3 THE. QUE A ZERO WORD IS A BLANK AND REPRESENTS THE 








901466 000000 TSTQUE: .WORD’, 0 SCONTAINS DEVICE POINTER 
001470 | “BLKW “ 8. ) TEST QUE FOR DEVICES UNDER TEST 
001510 000000 “WORD 0 ABLE TERMINATOR GOES HERE WHEN 
SAL DEVICES ARE UNDER TEST. 
001512 000000 CLKADR: .WORD 0 | SUNIBUS ADDRESS OF KW11 CLOCK 
001514 000000 CLKVCT: .WORD 0 SVECTOR ADDRESS OF KW11 CLOCK 
;THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
SARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
A NEGATIVE BYTE 
001516 | GETINX: .BLKB 23. :GET INDEX TABLE 
THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
: ZARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
: A NEGATIVE BYTE. | 
001545 PUTINX: .BLKB 23. ;PUT INDEX TABLE 





;PUT TAGS HERE 


C2 
ER 


Seas © Conese 


RNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8 
ROR TABLE 


POINTER 


70112 
74256 


074406 
074476 


070116 
074256 
074406 
074476 


0701 
074956 


074476 


-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION ‘* EACH ERROR THAT CAN OCCUR. 
INFORMA NDEX RF 


: *NOTE2: 
Fed EM 
:* DH 
:* DT 
:* DF 
SERRTB: 
sERROR 1 
EMT1 
EHT1 
EDT1 
EFT 
sERROR 2 





sERROR 3 


zERROR 5 


sERROR 6 


TION IS OBTAINED BY USING T. 
LOCATION SITEMB. ae NUMBER 






THE TABLE IS PERTINENT. 


M IN 
IF $IT DATA_IS (SERRPC). 


MB IS OT PERTINENT 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


+ sPOINTS TO THE ERROR MESSAGE 
sPOINTS TO THE DATA HEADER 

 EPOINTS TO THE 

:sPOINTS TO THE DATA FORMAT 


WRONG UNIT SELECTED 


DEVICE WENT UNAVAILABLE 


DEVICE WENT NONEXISTENT 


CONTROLLER NOT READY 


DRIVE NOT READY AND GO NOT RESET 


UNEXPECTED VALUE FOR ‘‘ATA’’ STATUS 
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ERROR POINTER TABLE 


18 


ease 


Be 


701 ¢ 


O74406 
074476 


074476 


070172 


: ERROR 


BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 


DRIVE NOT READY BUT GO IS RESET 


GO NOT RESET BUT DRIVE IS READY 


INCORRECT FUNCTION CODE 


PARITY ERROR READING REMOTE REGISTERS 


TRANSFER ERROR IS INCORRECT 


INCORRECT WORD COUNT 


SEG 0041 


70320 
Be 


O74e86 


074476 


070236 
074256 
oe 06 

74476 


070246 
ort 56 
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ERROR POINTER TABLE 


INCORRECT BUS ADDRESS 


INCORRECT LBT STATUS 


INCORRECT AOE 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


INCORRECT WLE STATUS | 


INCORRECT UPE STATUS 





CZRND 
ERROR PO 


NTER TABLE 


a or 


fe 


070316 
076406 56 


0744 2: 


iC eS 


070336 


arate 


074256 


; ERROR 
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INCORRECT WCF STATUS 


INCORRECT WCE STATUS 


INCORRECT MDPE STATUS 


INCORRECT DCK STATUS 


INCORRECT ECH STATUS 


DLT SHOULD NOT BE SET 


MXF SHOULD NOT BE SET 





SEQ 0043 
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ERROR POINTER TABLE 


S12 arth 
002124 
8 tre 
0021 O74ere 
O76e06 


134 

136 Orne 
re 74406 
142 074476 


tt 4 Oras é 
15 O74476 


154 070436 
156 074256 
1 744 

1 74476 


sERROR 


2 ERROR 





DTE SHOULD NOT BE SET 


INCORRECT HCRC STATUS 


INCORRECT HCE STATUS 


INCORRECT FER STATUS 


DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


LOST *MOL’’ DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 


SEQ 0044 


me 
Dra 


AO 
POINTER TABLE 
002212 074476 


44 0705 
ee sta 
50 0744 

52 074476 
ye 70536 

sia 
744 
744 
is sire 
744 
744 
74 54 
ae Be 
74476 


Pius 
wc 


hoOron 
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EFT1 


“OPI** ERROR DURING PACK ACKNOWLEDGE 





sERROR 44 “"RMR"’ ERROR DURING PACK ACKNOWLEDGE 
EMT44 
EHT1 
EDT1 
EFT1 
: ERROR "“ILR’’ ERROR DURING PACK ACKNOWLEDGE 





sERROR 46 "*ILF’’ ERROR DURING PACK ACKNOWLEDGE 


gERROR 47 COMPOSITE ERROR STATUS IS INCORRECT 


sERROR 50 PARITY ERROR WRITING REMOTE REGISTERS 





sERROR 51 INCORRECT IAE STATUS DURING SEEK COMMAND 


Bees 
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ERROR POINTER TABLE 


OPI ERROR DURING SEEK - MEDIUM IS NOT ON LINE 


OPI ERROR DURING S 


E UM IS ON LINE, ASSUME 
ON CYLINDER LATCH D 


TDN'T RE 
SEEK INCOMPLETE ERROR DURING SEEK COMMAND 
DEVICE CHECK DURING SEEK COMMAND 

PIP IS STILL SET AFTER SEEK - SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


IVC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 


SEQ 0046 


_ - 


me 


002372 074476 


ee 


0744 
002402 074476 
41 
41 nie 
70744 
74t0e 


424 et 

? 74956 
& O7447e 
4 70774 
4 74256 
4 744 
442 074476 


. van 
1 sass 971988 


; ERROR 


EFT1 


61 
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RROR POINTER TABLE 


ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
VOLUME VALID IS STIL SET 


MOL IS ZERO, BUT OPI WAS NOT 
REPORTED DURING SEEK COMMAND 


SSE SHOULD NOT BE SET 


DRIVE DID NOT DETECT ““IVC’* ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMER1 


UNEXPECTED ERROR SET IN RMER2 


SEQ 0047 


tees ai 


oe 
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ERROR POINTER TABLE 


Ooseee 076476 


071040 
74256 
7 

744 


071050 
74256 


074476 


071 
074256 
0744 
074476 


071076 
074256 


074476 


071114 
074256 


0744 
Oreere 


71124 
sia 
ue76 


Or] 144 
74256 


sERROR 70 


sERROR 71 





sERROR 72 








sERROR 76 





ERRONEOUS “‘IAE'’ ERROR DURING RECALIBRATE 


"“ILF'* ERROR DURING RECALIBRATE 


“OPI'’ ERROR DURING RECALIBRATE DUE TO ‘MOL’ = 0 


“OPI"* ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


""IVC’’ ERROR DURING RECALIBRATE - ‘‘vv’* = 0 


ERRONEOUS “‘IVC’* ERROR DURING RECALIBRATE - ‘‘Vv"* = 1 


“SKI'" ERROR DURING RECALIBRATE 


NEE AST hss: 


SEQ 0048 


d0se36 ork 1 S6e EMT105 
6 EHT1 
74406 EDT1 


K 4 
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ERROR POINTER TABLE 
002550 0744 EDT} 
382 Oneere EFTI 
192 
193 ERROR 77 “DVC'’ OCCURRED DURING RECALIGRATE 
002554 071154 EMT77 
002556 074256 EHT1 
002560 074406 EDT1 | 
002562 074476 EFTI 
195 
19 ;ERROR 100 LOST "MOL" DURING RECALIBRATE - "OPI" = 0 
002564 071166 EMT100 
002566 074256 EHT1 
570 074406 EDT 
002572 074476 EFTI 
198 
199 ERROR 101 — LOST ‘VV"' DURING RECALIBRATE = “‘IVC'' = 0 
002574 071204 EMT101 
002576 074256 EH 
074406 EDTI 
602 074476 EFT 
01 
203 ERROR 102 "ATA" DID NOT SET DURING RECALIBRATE 
002604 071222 EMT102 
) 074256 EHT1 
61 EDT! 
612 074476 EFTI 
205 ERROR 103 = ""OM'’ DID NOT RESET DURING RECALIBRATE 
002614 071232 EMT103 
616 074256 EHT1 
620 074406 EDT 
74476 | EFT! 
ERROR 104 "PIP" IS STIL SET AFTER RECALIBRATE 
4 071266 EMT 104 
EHT1 
"es 074206 EDT! 
744 EFTI 
10 
aii ERROR 105 UNEXPECTED “‘ILR’' ERROR DURING RECALIBRATE 
| 
| 


002642 


13 
14 
15 
002644 
88 64 
65 
65 


00 


074476 


071272 
074256 


0744 
O74e7e 


071302 
74256 
74406 
74476 


71322 

74 
074424 
074514 


71334 


i" 
he 


074516 


: ERROR 


: ERROR 


EFT 





107 


EMT107 
HT1 


113 
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ERROR POINTER TABLE 


UNEXPECTED ‘'RMR"’ ERROR DURING RECALIBRATE 


“UNS"’ ERROR DURING RECALIBRATE = AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEOUT-NED STATUS FAILURE 


UNUSED 


SEQ 0050 


071 

074256 
074406 
074476 


071374 
074256 
074406 
074476 


071404 
074256 


Oeeare 
74476 


071414 
074256 
074406 
074476 


sie 


74406 
74476 


714 
74256 


74476 


es 
ih 


; ERROR 


ERROR 


ERROR 


2 ERROR 


115 


116 


117 


121 


122 


123 
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ERROR POINTER TABLE 


RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


RMMAR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


SEQ 0051 
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. ee 
Se tras 
“8 
a ee 
8 71474 
Bas Sue 


64 
54 071506 
56 074256 
074006 
74476 


65 


‘aa . 


132 


RMEC2 NOT INITIALIZED BY UNIBUS 


RMMR2 NOT INITIALIZED BY UNIBUS 


RMCS1 NOT CLEARED BY CONTROLLER CLEAR 


RMBA NOT CLEARED BY CONTROLLER CLEAR 


RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


RMER1 NOT CLEARED BY CONTROLLER CLEAR 


RMAS NOT CLEARED BY CONTROLLER CLEAR 


SEQ 0052 
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ERROR POINTER TABLE 


77 
78 
114 071556 
‘. ce 
152 Opeare 
4 071570 
1 74256 
ig rare 
0031 074476 
1 71602 
1 O7t086 
14 orate 
142 074476 
144 Or IS 
14 74256 
150 Lopes: 
15 74476 


Be 


164 071 

166 74956 
1 Spey 
172 074476 





s ERROR 








140 


141 


RMMR1 NOT CLEARED BY CONTROLLER CLEAR 


RMDS NOT CLEARED BY CONTROLLER CLEAR 


RMEC2 NOT CLEARED BY CONTROLLER CLEAR 


RMMR2 NOT CLEARED BY CONTROLLER CLEAR 


RMCS1 NOT CLEARED BY ERROR CLEAR 


RMCS2 NOT CLEARED BY ERROR CLEAR 


RMCS1 NOT CLEARED BY DRIVE CLEAR 


RMDS NOT CLEARED BY DRIVE CLEAR | 


SEQ 0055 


eee 
= 
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ERROR POINTER TABLE 
299 
71656 
ae Uae 
1 rere 


md ek 


4 071676 
74256 
74406 

074476 


; =RROR 


; ERROR 


EMT 
EHT 





EMT142 
EHT1 


143 


145 


147 





150 


150 
1 


RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 





RMEC2 NOT CLEARED BY DRIVE CLEAR 


MEDIUM NOT ON LINE 


SEQ 0054 


| 
—— 
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ERROR POINTER TABLE 


74 071746 
oe 0 Ort 56 

O74476 

00 717 

742 

. Re 
14 071772 
are 
4 072010 
74406 
2 074476 

3 

72026 
i. as 
74406 
74476 
. ae 

744 

744 


peQ3e 
i986 
744 
744 


M sini 072064 


: ERROR 


sERROR 


153 
EMT153 
E 


1 





DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


UNSAFE SHOULD NOT BE SET, AC iS LOW 


VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY \FFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND 


SEQ 0055 


003376 
00 


2 


003454 


074256 
74476 


072074 

ree 

a 
74476 


074256 
744 


74476 


ne 
Orass5 


072152 


ERROR 
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ERROR POINTER TABLE 


S378 92 


161 


167 
EMT167 





SEQ 0056 


RMDA NOT RESET BY RIP COMMAND 


RMDC NOT RESET BY RIP COMMAND 


DATA _WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 


OPI SHOULD NOT BE SET 


‘IVC SHOULD NOT BE SET 


JAE SHOULD NOT BE SET 


NEM SHOULD NOT BE SET 
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ERROR POINTER TABLE 


LT. 
a ie 
ta ae 
‘ti a 


"® i 


Oo35e6 74056 


170 
cat 70 


171 


EMT171 
T1 


175 





INCORRECT “MOL*’ STATUS DURING DIAGNOSTIC MODE 


“ATA’’ NOT SET DURING RETURN TO CENTERLINE 


“‘ATA’’ NOT SET BY OFFSET COMMAND 


RMER2 NOT INITIALIZED BY UNIBUS INIT 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


SELECTED DEVICE IS IN WRITE PROTECT 


CANNOT SET DIAGNOSTIC MODE 


SEQ 0057 


. un 
a e 
“f i 


ios 
gosess S74ess 








G 5 
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ERROR POINTER TABLE 


Bosses Oped 
Ba 

ig Re 
rs 

i, Be 


--RESERVED FOR POWER MONITOR BIT FAILURE-- 


INCORRECT “‘PIP'*’ STATUS DURING DIAGNOSTIC MODE 


INCORRECT "WRL'’ STATUS DURING DIAGNOSTIC MODE 


INCORRECT *'SKI’’ STATUS DURING DIAGNOSTIC MODE 


INCORRECT *DVC*’ STATUS DURING DIAGNOSTIC MODE 


“*vV"" WAS NOT RESET BY MAINTENANCE UNIT READY 


SELECTED DEVICE HAS A PERSISTENT ‘'SKI"’ ERROR 


SEQ 0058 


SA et 


H 5 
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C 
ERROR POINTER TABLE 
003642 074476 


"i 
, Ll 
* Bt 
h fe 
8 Be 
“i Be 


“iB 


S55 





EFT 


211 





213 


“LBC’’ DID NOT SET DURING DIAGNOSTIC MODE 


UNEXPECTED LOSS OF ‘MOL'* - MEDIUM IS OFF LINE 


UNEXPECTED LOSS OF VOLUME VALID - ‘‘Vv’’ = 0 


UNEXPECTED MECHANICAL MOTION - ‘PIP*’ = 1 


UNEXPECTED DEVICE FAULT - ‘DVC’’ = 1 


UNEXPECTED SEEK INCOMPLETE ERROR - ‘'SKI"’ = 1 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


SEQ 0059 


etna 


CZRNDAO RMBO FC 
ERROR POINTER T 


TNL 
ABLE 


he Bt 


744 07 pesre 
758 974806 


Sr 074256 
770 opts 
772 074476 
439 : 
440 
7 774 072522 
a ste 
002 74476 
446 
44 
446 
ain 
12 O7ea7e 
42 
4a? 





215 


217 
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DRIVE DID NOT DETECT “‘IVC’’ ERROR DURING RECALIBRATE 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


RMBO DID NOT DETECT RMR ERROR 


RM8O DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 


“IVC’* STATUS 


**IAE’’ STATUS 


"WLE*’ STATUS 


““OPI'* STATUS 


SEQ 0060 


i 
eae 


072 
074256 
b3 074406 
00405 


INTER 


074476 


74310 


74426 
Be 16 


224 
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PO TABLE 


SSE NOT DETECTED DURING DATA TRANSFER 


““SSEI'* NOT RESET BY END OF TRACK DURING DATA TRANSFER 


““SSEI"’ SHOULD BE SET AFTER DATA TRANSFER 


SSE WAS DETECTED W/ SSEI SET 


WRONG UNIT SELECTED 


INCORRECT “‘OPE’’ STATUS 


UNUSED 


SEQ 0061 


LL <n — - 


K 5 
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ERROR POINTER TABLE 
470 sERROR 233 UNUSED 
471 


3H Np $i sy 
; 
1 


sERROR 234 UNUSED 
sERROR 235 UNUSED 


sERROR 236 UNUSED 


_ 144 0 
20000 
ys 434434 8 
15 —NDONOE ‘ ° 
481 
iB sERROR 237 UNUSED 
i$ 100006 6 
1 —MNNDOC 
1 00000 
4 
c 5 sERROR 240 UNUSED 
oe 444 
1 NONOC ' 
17, N0000C 
7 
88 sERROR 241 UNUSED 


re 
oF sERROR 242 UNUSED 
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ERROR POINTER TABLE 


Seer 
se 
sass 
2OOC 
oooo 


sERROR 243 UNUSED 





496 
rth sERROR 244 UNUSED 
004224 000000 0 
Oot 000000 0 
004 000000 0 
499 
; ’ sERROR 245 UNUSED 
004 0 
004336 000000 0 
004240 000000 0 
004242 000000 0 
0 
508 sERROR 246 “ATA’’ NOT RESET BY GO WHEN ‘ERR’ = 0 
004244 072676 
are ot 56 
5 74406 
004252 074476 
5 , 
30 sERROR 247 “ATA’’ NOT RESET BY WRITING RMAS 
54 0727 47 
56 074256 EAT 
orate EDT? 
074476 EFT1 
309 sERROR 250 “ATA’’ WAS RESET BY GO WHEN "ERR" = 1 


7 MT25 
eu ie a 
r14%6 EFT1 


11 
14 sERROR 251 PROGRAM INTERRUPT WAS NOT GENERATED 


one eee oe . —_— 


5 


4 
| CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-24 SEQ 0064 
| ERROR POINTER TABLE 
| 004274 0727 EMT251 
| 094 7 O74 0 EHT 
74416 EDT 
74506 EFT 
514 
212 sERROR 252 PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 
004 eters EMT252 
7427 EHT 
1 74416 EDT 
1 764506 EFT 
517 
218 sERROR 253 OFFSET MODE WAS NOT RESET BY WRITING RMDC 
004314 072750 EMT253 
004316 074256 EHT1 
one 074406 EDT1 
074476 EFT1 
$31 sERROR 254 INCORRECT ““ILF*’ STATUS 
004324 072766 EMT254 
074256 EHT1 
074406 EDT1 
332 074476 EFT1 
523 
$34 sERROR 255 INCORRECT ‘‘ATA’’ STATUS 
004334 072776 7255 
3 074256 ENT 
09434 074406 ‘EDT1 
342 074476 EFT1 
337 sERROR 256 INCORRECT “‘ILR'’ STATUS 
4 07 EMT256 
ne a 
52 0745 EFT 5 
5 7 
3% sERROR 257 INVALID IAE STATUS DURING SEARCH COMMAND 
54 073016 7257 
74476 EFT 
338 sERROR 260 **IVC'’ WAS NOT DETECTED DURING SEARCH COMMAND 
004364 073030 EMT260 


or 


: 9g To O74086 
GD4408 974566 
538 


- r4 
Ba ee 


541 
54 


54 
414 72 
BG 
rt49 


we 


a 


004454 073154 





261 





267 


EMT267 
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ERROR POINTER TABLE 


DRIVE EXECUTED SEARCH WITH ERROR SET 


""LBC’* ERROR NOT SET DURING DIAGNOSTIC MODE 


"SKI" ERROR DURING SEARCH COMMAND 


"*IVC’’ ERROR DURING SEARCH = LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID . 
; 


5 


DEVICE FAULT (DVC) DURING SEARCH 


I SHOULD HAVE BEEN SET BECAUSE CYLINDER 
S TOO LARGE 


SEQ 0065 


ee ee ae ee - 
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ERROR POINTER TABLE 


i 
51 


09646 O76266 


ar4a56 
Gase99 Grete 


O74476 


514 073242 
5 74256 
5 74406 
522 074476 


Bs 


7 ERROR 


272 


273 


OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 
PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


"“OPI*’ ERKOR DURING DATA TRANSFER BECAUSE ‘MOL’ WAS 


SEQ 0066 


5 
5 
5 
586 
004554 
094560 
562 
588 
rs 44 
90 
ie 
5 
P) 
00457 
91 
9 
9 
94 








ZERO 


“‘OPI** ERROR ue DATA TRANSFER BECAUSE 1) ON 
Se TIRED OUT DROP OR 2) SEARCH TIMED OUT OR 





"IVC" ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS "‘IVC'’ ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 


“ILR’* ERROR DURING DATA TRANSFER 


"“ILF*’ ERROR DURING DATA TRANSFER 


“RMR"’ ERROR DURING DATA TRANSFER 


SEQ 0067 


D 6 
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ERROR POINTER TABLE 


004632 074476 


605 
Ooo 73442 
0046 opaRe 


ocese 074476 


644 073454 


i ies 
00465 Oreere 
610 
611 
612 
654 Orrste 
666 Orte 6 
746406 
) 074476 
613 
614 
615 
664 073504 
074256 
? Ortare 
7 74476 
61 
e17 
74 073516 
we Sirs 
te 74476 


; ERROR 


; ERROR 


EFT1 


305 
EMT305 
HT1 


306 


310 





313 


INCORRECT “‘IAE"’ STATUS DURING DATA TRANSFER 
“'SKI'' ERROR DURING DATA TRANSFER 

DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 
DEVICE FAULT DURING DATA TRANSFER 

LOSS. OF BIT CLOCK DURING DATA TRANSFER 

LOSS OF ani CLOCK DURING DATA TRANSFER 


UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 


SEQ 0068 


RE _ ET EE EE 


A>} 073574 
074256 
74406 


2 074676 


744 077506 
004746 074256 

750 074406 
004 


074476 


754 0 
75 Griese 
760 074 

7 O74476 
764 30 
766 974056 

744 

772 074476 


Re ae 


316 


317 


320 


321 


E 6 
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ERROR POINTER TABLE 


DRIVE TIMING ERROR DURING DATA TRANSFER 


WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HEADER ERRORS SHOULD NOT BE SET 


SEQ 0069 


F 6 
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CZRND 
ERROR POINTER TABLE 


e29 

- 014 
me 
5 r4a76 
4 7e956 
71476 
034 073700 
074256 
ae 
5042 074476 


59 


ao 


660 
be 


Bn ti 
ws tc 
667 





323 


324 


325 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 


SEQ 0070 


G 6 
‘oer MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-31 SEQ 0071 


sERROR 332 DATA LATE ERROR DURING DATA TRANSFER 








04 Eh 9} 
ee 
074476 
sERROR 333 PIP STIL SET AFTER DATA TRANSFER = SKI = 0 
14 073776 EMT335 
1 74256 EHT1 
3 ih ot 
sERROR 334 LOST MOL DURING DATA TRANSFER =- OPI = 0 
4 074014 EMT334 
74256 EHT1 
ra 2 
sERROR 335 LOST VOLUME VALID DURING DATA TRANSFER - IVC = 0 
1 074 EMT355 
1 eae of 
18 Sih a 
DATA READ DOES NOT COMPARE WITH DATA WRITTEN 
5144 074052 
a ir 
51 7453 
sERROR 337 WRITE CHECK ERROR NOT DETECTED 
& i 
74 
744 
7454 





sERROR 340 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 


7444 
745 


Be 





sERROR 341 INCORRECT DATA DURING WRITE CHECK ERROR 


A A A I a et maa 


| 
| 


ee ee 


C 
E 


6 
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RROR POINTER TABL 


"an 
i - 
744 





““IVC’* ERROR NOT DETECTED DURING DATA TRANSFER 


“FER’' NOT DETECTED DURING DATA TRANSFER 


“HCE’’ NOT DETECTED DURING DATA TRANSFER 


“BSE"* NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH = ‘IVC’ = 0 


SEQ 0072 


oe 


oL: 


a 


o 


720 105 14 O76a02 
531 $49 
; Greer 
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ERROR POINTER TABLE 


sERROR 351 “ATA’’ DID NOT SET DURING SEARCH 


sERROR 352 PROGRAM TIMEOUT WHILE TESTING RMLA 


sERROR 3535 LOOK AHEAD TEST FAILS 


BSE SHOULD NOT BE SET 


sPUT ERROR TABLE HERE 


SEQ 0073 


ee Lee 


z 
s 


ed ed ed ed ed eed aed ed = 2d 
BONO UL WN O OBVNOULSWUN “-OWOONOULWHR 


: 
i 


ba | 
o 


J 6 
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-SBTTL ERROR TABLE USAGE 
THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 





EMT - ERROR MESSAGE TABLE ADDRESS 
EHT - ERROR HEADER TABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 

EFT - ERROR FORMAT TABLE ADDRESS 












sTHE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MES STRINGS 

7FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
sOF ONE OR MORE oe /MESSAGE STRINGS WHICH ARE TO BE FORMATT 

:TYPED BY THE ERROR T SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
3NO MESSAGE TO BE TYPED FOR THE ERROR. 


: SIMILARLY, THE ET. EDT ff ENTRIES ARE ADDRESSES OF TABLES 
‘OF HEADER FORAAT ORMATION FOR A GIVEN ERROR. EACH ENTRY 
sIN THE ERROR NEADER e aay OR MAY NOT HAVE AN ASSOCIATED LINE OF 
:DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
“HEADER. THAT 1S, ADER LINE MAY BE PRINTED WITHOUT ANY DATA, 

“BUT A DATA LINE | 1s NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
“MUST ALSO HAVE A FORMAT. 












ZIN SUMMARY, 

: EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE. 

: EACH TABLE IS A LIST OF ADDRESSES WICH DEFINES THE LOCATIONS 
: OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 





SEQ 0074 


eee ee - 



































K 6 
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ERROR TABLE USAGE 
1 :THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
: 005 011600 BADTMO: MOV (SP) .RO :SAVE PC WHERE THE TIME OUT OCCURED 
4 005 3740 TST =(ROS “ADJUST PC <2 
5 6 CMP (SP)+, (SP)+ SRESTORE STACK POINTER 
6 005 104461 605350 TYPE 5$ ii TYPE ASCIZ STRING 
17 BR [GET OVER THE ASCIZ 
pan | 13958" ~ASC1Z | BUS TIMEOUT, PC=/ 
7 90 010046 MOV RO,-(SP) sSETUP FOR TYPING OUT PC 
8 00541 10440¢ TYPOC 
9 00541 240 NOP :PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
10 {TO STOP ON UNEXPECTED TIMEOUT. 
i 005414 000404 BR START ‘BRANCH TO START 
15 .SBTTL START OF PROGRAM 
15 005416 012737 177777 001326 START1: MOV #=1, CHGADR :CHANGE RH/RM BUS ADDRESS 
16 005424 02 BR START2 
18 005426 005037 001326 START: CLR CHGADR :NO CHANGE IN ADDRESS 
19 9094 000240 : START2: NOP 
5434 005227 000000 INC #0 sTTY LOOP, WAIT FOR INCREMENT 
1 005440 001375 BNE 4 : OF 
g 005442 RESET *RESET THE WORLD 
4 .SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV #SCMTAG,R6 :3FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 33CLEAR MEMORY LOCATION 
BNE : :SLOOP BACK IF NO 
MOV #STACK. SP *:SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECT 
mov ‘ Sarl -arlovy c 7107 OT VECTOR FOR SCOPE ROUTINE 
MOV b,aslorvece ie CTOR FOR ERROR ROUTINE 
MOV 0, avEMTVEC siLEveL'? 
MOV TRAPVEC +: TRAP VECTOR FOR TRAP CALLS 
MOV LEVEL 7 
MOV ::POWER FAILURE VECTOR 
MOV ; LEVEL 7 
MOV := SETUP END-OF-PROGRAM COUNTER 


s: INITIALIZE NUMBER OF ITERATIONS 
33CLEAR THE ESCAPE ON ERROR ADDRESS 

ALLOW ERROR PER TEST 
‘INITIALIZE THE LOOP ADDRESS FOR SCOPE 

*SETUP THE ERROR LOOP ADDRESS 
ister. IF NOT FOUND OR IT IS 

OFTWARE SWITCH REGISTER. 

: SAVE ERROR VECTOR 
< SET UP ERROR VECTOR 
33SETUP FOR A HARDWARE SWICH REGISTER 

A HARDWARE DISPLAY REGISTER 


af 
50 5a 


szSIZE F 





gqgagaszags 
>> 


ili 
Sete ate 








ot 
SVSnses 
Nn 


-—O— 
NSE 
—~ 
woos 
NW 


xd 
SENS 
Boies 


osSsoorn 
Ses 


5 ade 
N= 


; 


o= 
ze 
IO 


005652 

176 
001230 
900200 
001244 
005334 
00030 
177777 


041512 
005754 


000042 


(001242 


001154 


000001 


001332 
000016 


sine 
ui 


006136 


001332 


000042 


000001 
000176 


001150 


000041 


133 
133 


ean 
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OMMON TAGS 


BR 65$ ::BRANCH IF NO TIMEOUT 
64S: Moy #65$. (SP) [:SET UP FOR TRAP RETURN 
65$: MOV #SWRES z:POINT TO SOFTWARE SWR 

MOV aDisPRée b ISPLAY 
66$: MOV (SP)+, SsERRVEC sZRESTORE ERROR VECTOR 


SPASS CLEAR PASS COUNT 

#APTSIZE ,SENVM i: TEST USER SIZE UNDER APT 
67$ eUSE NON-APT SWITCH 
ASSWREG , SUR tINO, USE APT SWITCH REGISTER 


67$: 

: SETUP “TIMEQUT'” TRA TRAP AMECTOR FOR UNEXPECTED BUS TIMEOUTS 
MOV vec : SETUP FOR UNEXPECTED TIMEOUT 

MOV aPRS. TeRRECe s LEVEL 


ape TYPE PROGRAM NAME 
TYPE THE NAME OF THE PROGRAM IF 4 PASS 
INC #~1 s3 FIRST TIME? 





BNE 

CMP ae 

BEQ 

are : 
3269S: .ASCIZ <CRLF>@CZRNDAO - FUNCTIONAL TEST, PT 1a@<CRLF> 


.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST ans WE RUNNING UNDER XXDP/ACT? 


BNE 70$ 3 BRANCH IF 

CMPB NV, #1 SARE WE RUNNING UNDER APT? 

BEQ : :BRANCH IF 

CHP SUR .ASUREG S:SOFTWARE SWITCH REG SELECTED? 

GTSUR a 7:GET SOFT-SWR SETTINGS 
#1,$AUTOB szSET AUTO-MODE INDICATOR 


70$: MOVB 
71$: . 


;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
SPAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 





CLR XXDP :CLEAR "XXDP* LOAD DEVICE STORAGE 
CAP #16,a861 : LOADED, FROM AN RM8O ? 
MOV a440,XXDP GET DEVICE INDICATOR AND NUMBER 
CMPB sé XXDP ‘IS IT A VALID NUMBER ? 
BHIS 1$ °¥ 
CLRB XXDP “NO, DEFAULT TO DRIVE 0 
1$: TST ans2 *CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 2$ ZB IF NEITHER 
TYPE 73$ 33 TYPE ASCIZ STRING 
BR 72$ T OVER THE ASCIZ 
55738: "ASCIZ <CRLF>/NOT TESTING DRIVE / 
CLR -(SP) sCLEAR WORD ON STACK 
XXDP, (SP) :GET DRIVE ADDRESS 


sTYPE THE ADDRESS 


SEQ 0076 


ae 
EE ee _ 


CZRNDAO RM&O FCTNL PT1 
GET VALUE FOR SOFTWARE 


56 
006364 

?& 
i 
74 


of 
ae 





© ¢aannese 
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SWITCH REGISTER 


001217 


177777 
006216 


001332 


006256 


000042 
000377 


000200 


001276 
067112 


070102 
001217 


7130 
020026 


024026 
067135 


001300 


001245 


001300 


000010 


000010 


000086 


000026 


2$: 


-75$: 


sis: 


5g 768: 
> CHECK FOR AUTO MOD 
ar, 


-BYTE 
E 


-ASCIZ 7, HALT PROGRAM, CLEAR LOC. 4 
OR STANDALONE MODE 








1 


anne oe 


sONLY 1 CHARACTER 


0 : SUPRESS LEADING ZEROS 
SCRLF :CR- 

$$ GET NUMBER OF DRIVES 

ast sFIRST TIME THRU HERE ? 
75$ $i TYPE ASCIZ STRING 

74$ “GET OVER THE ASCIZ 

<CRLF>/TO TEST DRIVE / 

-(SP) :CLEAR WORD ON STACK 
XXDP, (SP) GET DRIVE ADDRESS 

* TYPE E DRIVE ADDRESS 

0 ‘ SUPRESS LEADING ZEROS 
76$ 337 YPE ASCIZ $ TRING 
$$ *:GET OVER T 









+ RUNNING IN AUTO MODE ? 
SET DEVICE MAP FOR ALL DRIVES 


sPROGRAM IS RUNNING IN AUTO MODE - SEE IF SizinG IS ALLOWED 


TST 
BEQ STANDALONE 
MOV #377 , SDEVM 
— BITB 117, SENVM 
BNE 138 : 
R1 
SBASE ,RO 
SYSTAT 
1$: ATNTBL(R1) .SDEVM 
11$ 








saris 
$(RO) 
#NED .RMCS2(RO) 


* RMCS1(RO) 


FSang0 108 RADT (RO) 







ggornn 


#24026,RMDT(RO) : 


sSIZING ALLOWED ? 
3NO 


sSTART FROM DRIVE 0 
sL E ADDRESS 
:TYPE "UNIT STATUS: 


sIS DEVICE PRESENT IN MAP ? 
:BR IF NO 


7 CR-LF 
* SAVE R1 FOR TYPEOUT 
::G0 TYPE--OCTAL ASCII 
si: TYPE 2 DIGIT(S) 
SUPPRESS LEADING ZEROS 
4 BLANKS 


:CLEAR_MASS BUS 
IVE ADDRESS 


sLOAD THE DR 
ACCESS ght REGISTER 
sIS DRIVE PRESENT ? 


40 AND AND RESTART PROGRAM. /<CRLF> 


SEQ 0077 


5 


> 
& 


TTT] Vit 


9 


A 
SSLESLANLS SS 


= 


WOONAOULSWN =O 


ed ced coed ed eed ed weed ved 


come ee eek rad eed coe coed meld ed eed et eed ceed ceed ed ed eed ed 


SOONAVE UO 


ee ee nen mm 
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SWITCH REGISTER 


| 

010000 000012 2: BIT WMOL.RMDS(RO) ;1S MEDIUM ON LINE ? | 
BEQ :BR IF NO | 
oe $ | 

067167 3$: TYPE NOTPRS sDRIVE NOT PRESENT | 
BR S$ ‘CHECK NEXT DRIVE | 
TY :DRIVE NOT AVAILABLE 


067204 4$: PE NOTAVL 
070102 001300 5$: BICB $ATNTBL(R1).$DEVM “CLEAR DEVICE FROM BIT MAP 
BR 11$ :CHECK NEXT DRIVE 


sDRIVE OFFLINE 
sCLEAR DEVICE FROM BIT MAP 


067225 6$: TYPE UNTOFF 
0102 001300 BICB ATNTBL(R1).$DEVM 
BR 9$ sPRINT DRIVE TYPE 


001332 7$: TST XXDP sLOADED FROM RM8O ? 

001332 CMPB  —s- XXDP,,R1 ‘IS THIS THE DRIVE ? 
BNE :BR IF NO 

067152 TYPE ghODEV “DRIVE IS LOAD DEVICE 








7 $: TYPE ,UNTON ; 
067 65% Ss: TYPE ,BLNKS2 “TYPE 2 BLANK 
TYPE “PRINT DRIVE 
10$: ‘ 0 3 
11$ INC R1 s INCREMENT THE DRIVE ADDRESS 
000007 CMP R147 *ALL DRIVES ARE KED ? 
BLE 1$ sBRANCH IF NOT 
1217 12$: TYPE SCRLF sCR=LF 
ares JMP CMNSTART : JUMP TO COMMON START 


CZR 
T 


B 7? 
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STANDALONE INPUT ROUTINES 
1 .SBTTL STANDALONE INPUT ROUTINES 
: 006646 STANDALONE : 
4 004737 064402 JSR PC, S$TKINT s INITIALIZE CONSOLE 
5 5227 177777 INC #~1 :FIRST TIME THRU HERE ? 
§ irae its 3 BNE 2$ ‘BR IF NO 
3 ;SEE IF OPERATOR WANTS HELP TEXT 
11 56 066536 TYPE eMSHELP sWANT HELP ? 
1 v0 RDCHR “GET RESPONSE 
13 0066 00117 MOV (SP)+,$TMP1 ‘SAVE AND ECHO RESPONSE 
1 g 001176 000131 STMP1.#'°Y ‘WAS IT A YES RESPONSE ? 
16 1 00117 TYPE »STMP1 “TYPE ‘y® 
01 10437 TYPE gfELP “YES = TYPE HELP TEXT 
i 01 067771 1$: TYPE .N sTYPE 'N® 
of 001217 TYPE SCRLF *CR=LF 
1 006 7 $$ 
siti sSEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 
5 0067 6 005737 001326 . TST CHGADR sCHANGE RH/RM BUS ADDRESS ? 
$ 005037 00132 CLR CHGADR :NO CHANGE NEXT TIME 
B 006740 104401 00121 TYPE  ,$CRLF CRLF 
Dati DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
5744 104401 066567 TYPE CNSLO1 sTYPE CURRENT BUS ADDRESS 
5750 13746 001276 MOV SBASE ,- (SP) SAVE SR ASE FOR TYPEOUT 
5754 10440 TYPOC ) *:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
: 6756 104401 067777 TYPE ,BLNKS2 :TYPE 2 BLANKS 
5 006762 104413 RDOCT “GET NEW BUS ADDRESS 
B76 12637 001176 MOV SP)+,$TMP1 : CARRIAGE ? 
0¢ 141 BEQ *YES@SKIP TO NEXT ENTRY 
e753 160000 001176 CMP #160000,$TMP1 :BASE ADDRESS IN 1/0 PAGE ? 
100 101403 BLos }46s«4$ YES 
40 007002 1 401 066577 TYPE L02 7 TYPE WARNING MESSAGE 
41 007006 0007 6 BR ‘TRY AGAIN 
4 13737 001176 001276 4$: MOV TMP1, SBASE “STORE NEW BUS ADDRESS 
44 16 104401 066641 5$: TYPE  ,CNSLO3 
45 3046 CLR =(SP 
4 4 001272 NB SVECT1, (SP) :GET CURRENT VECTOR ADDRESS 
48 104401 067777 TYPE ,BLNKS2 :TYPE 2 BLANKS 
4 10441 RDOCT *GET NEW VECTOR ADDRESS 
i2 001176 MOV (SP)+,$TMP1 ‘CARRIAGE RETURN? 
1 ale BEQ 5 *YES=SKIP TO NEXT ENTRY 
é g 001000 001176 CAP #1000. $TMP1 :VECTOR ADDRESS < 1000 ? 
4 ner 066650 TYPE NSLO4 i TYPE WARNING MESSAGE 
7064 113737 001176 001272 68: MOVB: $TMP1,$VECT1 :STORE NEW VECTOR ADDRESS 


SEQ 0079 


—< 
3 
= 
a 
a4 
ee 8 


Ron 


segesenescesess 


SSISHIRARANAISSELSALARISSSN = 


a St tt i. 
dd a et 


Ssecess 
BRSREN SUSSRSANEREKS SSSRRRSES 


SSSsssss 


ONS 


—_ 
& 


Sssosssosess 


HVA SSSUR ARVO SBIR ARCS ODES 


eed wm nd wad ond wad ced amb ed cued coed ad ord od 


= 


e~ # 
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-FIND OUT IF USER WANTS TO DO LOGICAL ADDRESS PLUG TEST 
001330 7$: CLR MANUAL ; INTERVETION 
067 TYPE § ,MSMNUL ‘TYPE "PLUG TEST ?° 
RDLIN “READ THE ENTRY 
MOV (SP)+,RO [SAVE ADDRESS OF RESPONSE 
Tse R0) WAS RESPON SE A CARRIAGE RETURN ? 
000001 STB 1(RO) ‘WAS IT TERMINATED WITH CARRIAGE RETURN ? 
000116 ce #°N, (RO) WAS IT A 'N’ RESPONSE ? 
900001 001330 MOV = #1. ,MANUAL ;SET MANUAL INTERVENTION FLAG 

131 cMPBtéK*Vy, (ROD) “WAS IT A ‘Y*® RESPONSE ? 

BEQ :BR IF YES 
067047 8$: TYPE CNSLO9 ‘TYPE "* 7ILLEGAL INPUT’’ 

BR 7$ “RETRY 

“DIALOGUE TO INPUT DEVICE NUMBERS 

177777 5s: INC #=1 sFIRST TIME THRU ? 

BNE 10$ “BR IF NO 
066704 ,CNSLO7 ‘TYPE INPUT INSTRUCTIONS 
001217 10$: SCRLF *CR=LF 
001 118: $DEVM “CLEAR DEVICE MAP 
067070 ,MSDRVS ‘TYPE "DRIVE(S): ° 
001176 . (SP)+,$TMP1 ;GET RESPONSE 
001176 000101 STNPI#*A 1S INPUT ‘'A’* ? 

5 ‘YES, TYPE “‘ALL’’ AND GO 
itch 001300 #377, SDEVM :SET DEVICE MAP FOR ALL DRIVES 
006356 xS12Z sAUTO SIZE. 

001176 000015 12S: STNPT ACR : CARRIAGE RETURN ? 
001176 *ECHO RESPONSE 
001176 000060 TMP1.#°O :NUMBER <0? 
001176 000067 SINP1.#*7 :NUMBER >7? 
14$ SILLEGAL INPUT 
13$: 
1176 (SP)+,$TMP1 :GET RESPONSE 
1176 000015 *CARRIAGE RETURN ? 
YES 
332 s TYPE 
1176 sECHO 
1176 000060 :NUMBER <0? 
001176 000067 :NUMBER >7? 
067046 14$: “TYPE CR=LF ‘* 22LLEGAL INPUT" 
| “RETRY 
00117 15$: MOV STMP1,R1 :R1 = DRIVE NUMBER 
777 BIC #°C7,R1 


D 
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STM to) SOEWN sSET DEVICE IN MAP 
& are EVM ;DONE ? 


I : 
1217 16$: TYPE oSCRLF ;CRoLF 
5 JMP XSIZ G0 SIZE DEVICES 





oN TN 
3s 
Se 
ow 
3% 


CZRNDAO RM8O F 
STAND 


AUS WUIN~OVOONOAUS WN = 


ee 


— 
SBOVERRUNLSIAA 


SlEGRALS SESE 
ssseses seseses sess 
SRSRNO® NIELS 


~~ 
ooe “I 
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Asset TEST QUE FROM DEVICE MAP 









CMNSTAR 
06 44 DRIVES 
fs} SDEVM.RO 
533 » COMMA 
2 NONE 
1470 1$: #TSTQUE+2,R1 
1466 R1,TSTQUE 
1 #1,R2 
2s RRO 
a. 
066533 OMMA 
,(R1) 
~=(SP) 
} 
070102 000001 A 
000002 #2,R1 
3$: i 
R 
4 
R 
3 2$ 
4$: (R1) 
001217 »SCRLF 
:SIZE FOR CLOCK 
043246 JSR PC, SIZCLK 
BR as 
007530 TYPE 4938 









bis: 
000042 TST 2 
BNE $ 
5426 JMP START 
1502 5$: JMP $GET42 
6$: 
READY: 
001300 _" 
000042 Ni 
003868 START 
0415 1S $GET42 
1116 2% STSTNM 
12 STIMES 
: PC eoge ete 
ee 4645S, -(SP) 
64$: 


°§ 
INTBL CRS), 1(R1) ZEN ER 
ADVANC 


BR $ 3 
65$: .ASCIZ <CRLF>/NO ‘L' OR *P 


E(S) TO BE TESTED’ 
E MAP 

ES TO TEST 

e 


sTYPE ° 

3R1 = ADDRESS OF FIRST ENTRY IN QUE 
3 INITIALIZE ENTRY POINTER 

R = DEVICE POINTER 


= DEV 
i THIS DEVICE IN MAP ? 


TYPE ° 
“YES - ENTER DEVICE NUMBER IN QUE 
3s SAVE E R3 FOR TYPEOUT 

760 TY YPE-OCTAL ASCII 
$3 TYPE 1 DIGIT(S) 

ESS LEADING ZEROS 
ATTENTION BIT IN QUE 
E ENTRY POINTER 
SADVANCE DEVICE POINTER 
; DONE ALL DEVICES ? 


ADVANCE DEVICE NUMBER 
TENTER NEXT DEVICE 
; TERMI pid TEST QUE 








sTYPE CR-LF 


:SEE IF CLOCK PRESENT 
YES = CLOCK IS PRESENT 
:: TYPE ASCIZ STRING 
“GET OVER THE ASCIZ 
CLOCK/ 
sANY MONITOR PRESENT ? 
:BR_IF_YES 


:JUMP TO START 
RETURN CONTROL TO MONITOR 


sREADY TO START TEST 
sANY DRIVES IN MAP ? 





BR IF YES 

ZANY MONITOR PRESENT ? 
sBR_IF YES 

; JUMP TO START 

;RETURN CONTROL TO MONITOR 


sRESET TEST NUMBER 









SINITIALIZE NUMBER OF ITERATIONS 
s INITIALIZE 

:3PUT NEW PS ON STACK 

:sPUT NEW PC ON STACK 

:3POP NEW PC AND PS 


SEQ 0082 


he, 
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STANDALONE INPUT ROUTINES 
49 007650 117737 171612 001234 MOVB #§$ a@TSTQUE,SUNIT ;LOAD DRIVE NUMBER 
1 :CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND SET LAST TRACK ADDRESS 
3 7 0137 1276 MOV $BASE :RO = UNIBUS ADDRESS 
ress 913) 3 090010 MOV, CLA RACS2(R0), ZCLEAR MASSAUS  oce TEST 
2¢ 7676 01 00 001334 MOV Sag! TACT Tay »LSTRK sSET LAST TRACK = 13. 
28 : Ss TYPE DRIVE NUMBER TO BE TESTED(SUNIT) 
58 7704 104401 17 TYPE ,$CRLF sCR=LF 
7710 106401 TYPE MSGDRV ‘TYPE "DRI 
60 007714 013746 0012 SUNIT,-(SP) 73 SAV 
:z TYPE DRIVE NUMBER 
10440 TYPOS 33 
00 BYTE ; “TYPE 2 
BYTE 33 E ZEROS 

61 007724 005 CLR 4 °T S ARE ADDED TO 
6¢ 5 DEC R4 3 

1376 BNE 2 
64 5 DEC R4 
&5 1376 72 


A — 


ee 









6? 
RNDAO RMBO FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13 SEO 0084 
ALONE INPUT ROUTINES 
} 3 fF SRAAAAAAAAAAAAERAARE AAA EAAAAAARERAEAAEERARARAEREEERAEEERARAEEKE 
**TEST 1 CONTROLLER ACCESS TEST 
ee 
SCOPE sSCOPE CALL 
77% 40 NOP ‘START OF TEST 
774 1100 MOV #STACK sP ‘INITIALIZE STACK POINTER 
0077 1 1276 MOV SBASE ,R :RO = UNIBUS ADDRESS 
7752 01 701 14 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
. 77 1 1 001226 MOV #1, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
4 007764 005001 CLR R1 
5 0077 13746 MOV ERRVEC,-(SP) § ;:PUSH ERRVEC ON STACK 
1 746 MOV ERRVEC+2,=(SP) ::PUSH ERRVEC4+2 ON STACK 
6 00777 4 a3 910100 000004 MOV #1$, ERRVEC 
7 010004 012737 000006 MOV #PR6, ERRVEC+2 
§ 10012 110160 000001 MOVB sMOVE HI BYTE TO RMCS1 
10 01 16 0101 90000¢ MOV ( ‘MOVE WORD COUNT REGISTER 
11 01 16002 MOV (RO) 
1 1 101 MOV :MOVE BUS ADDRESS REGISTER 
13 0100 16002 MOV RO) 
14 0100 1 10 MOV RMCS (SP) -:PUSH RMCS2(RO) ON STACK 
15 01 101 10 MOV R1,RMC :MOVE CONTROL STATUS REGISTER 
16 ot 01 002 10 MOV RMCS2¢ 
17 01 01 10 MOV (SP) + RO) -:POP STACK INTO RMCS2(RO) 
18 ot 010160 000022 MOV R1 sMOVE DATA BUFFER 
19 01 1 : 000022 MOV RMDB ( 
20 01 1 MOV (SP)+, ERRVEC+2 -:POP STACK INTO ERRVEC+2 
oF 12637 MOV (SP)+,ERRVEC _;;POP STACK INTO ERRVEC 
: 010076 17 BR 3s ‘NO BUS TIMEOUT OCCURRED 
010100 02 1$: CMP . sADJUST STACK 
4 10102 01 8 000006 MOV *:POP STACK INTO ERRVEC+2 
1 106 012637 000004 MOV ::POP STACK INTO ERRVEC 
5 01011 104110 EMT 
10114 005737 000042 TST 21S MONITOR PRESENT ? 
101 1 g BNE “BR IF YES 
101 1 541 JMP *YES=GO GET S$BASE 
101 037 001 2$: CLR “FUDGE NO DRIVES IN MAP 
101 137 04150 JMP *RETURN CONTROL TO MONITOR 
1 0101 3$: 
Lb KARAAERAAARAAAAEATAAAAAAREEAAATARAARARAAARAAARERAAAAAAAREEEREREERERERER 
“RTEST 2 LOGICAL ADDRESS PLUGS TEST 
ae 
101 T2: 
101 SCOPE :SCOPE CALL 
1014 40 NOP “START OF TEST 
1014 1100 MOV #STACK sP ‘INITIALIZE STACK POINTER 
101 1 1276 MOV E.R “RO = UNIBUS ADDRESS 
101 1 1 1 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
1 1 #1, STIAES : 


101 001396 ’ :3D0 1 My lf 
10164 012737 2 1226 MOV #2, $TESTN :3SET TEST NUMBER IN APT MAIL BOX 
8 010172 005737 0013350 TST MANUAL sD0 WANT MANUAL INTERVENTION TEST ? 


CZRNDAO RMBO FCTNL PT1 MAC 


LOGICAL ADDRESS PLUGS 


O5736 001124 
1 


‘ 010176 001555 


1 12737 
gee eure 
40 01 013746 


1021 
1 
10221 
1 
1 





SBNEGREA= 


LSSRVSUFUNLS 
©O000 OO SOCeCS COOOSCO oo 


104231 
os Hen 
10260 
Q 5037 

6 ; 1 
o8 7 
6 401 
231 
16037 
7 
10237 
7 14 
5 8 abe 
4 016037 
1 7 

1 OT 4 
1 11 
: 1 05 


067443 
001234 


001217 


067617 


1$: 
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7$ 
SUNIT,-(SP) 


oRET 
o SCRLF 
R 









2,RMCS2(RO) 
#OPE 


T 
RMER2 (RO), STMPT 
#*C<OPE>, $TMP1 


1 





#CLR,RMCS2(RO) 
R2,RACS2(RO) 





1 


sie) UR 


: 
aeRO) STMP1 : 
#*C<OPE>, STMP1 


RMCS2(RO) .STAP1 ; 
#°CUNTMSK ,STMPI 






:NO~--SKIP TEST 


SET ERROR LOOP ADDRESS 
sTYPE UNIT MESSA 
TYPEOUT 


73SAVE SUNIT FOR 
: DRIV R 35 TESTED 










PE INST 
‘START WITH UN 
iS THIS UNIT 40 7 
TYPE  *PULL LOGICAL ADRS PLUG #0° 


sTYPE ‘INSERT LOGICAL ADRS PLUG #' 
::SAVE R2 FOR TYPEOUT 

7: TYPE UNIT TO BE ADDRESSED 

3:60 Aba es iI ASCII 


Ss 
: TYPE RETURN WHEN READY 
—,- <RET> TO CONTINUE 


ADDRESS UNIT NUMBER IN R2 
3GET EXPECTED STATUS 

:GET RECEIVED STATUS 

Z1S ‘OPE’ SET ? 

:BR IF YES 


CLEAR THE MASSBUS 
SELECT DEVICE FOR TEST 


VED STATUS 
“OPE SET ? 






SEQ 0085 




















W06 -00 28-JAN-82 16:24:51 PAGE 13-2 SEQ 0086 
5 001176 5$: #DVA,STMP1 sWAS DEVICE AVAILABLE ? 
1 :BR IF YES 
1 12 
1 6$: R sADDRESS NEXT UNIT 
e 0 000007 Re  MUNTASK 3ALL PLUGS ADDRESSED ? 
3 1 401 7750 DONE : TYPE D ONE MESSAGE 
93 01 1 7617 INSERT i TYPE INSERT. LO LOGICAL ADRS PLUG #' 
94 01047 O13? 46 sinit. =(SP) OR TYPEOUT 
eere ORIGINAL DRIVE ADDRESSED 
1 104403 *:G60 TYPE=-OCTAL ASCII 
1 1 1 33 TYPE 1 DIGIT(S) 
1 “BYTE 0 SUPPRESS LEADING ZEROS 
95 01 1 067720 »RET ‘TYPE RETURN WHEN READY 
1051 2 “WAIT FOR <RET> TO CONTINUE 
97 01 001217 SCRLF * CRLF 
98 1 4 i THESE TWO LOOPS ARE ADDED TO 
1 R4 ‘WAIT FOR TTY 
100 01 2 
101 01 RG 
102 01 2 
: 01 7$: 
1 33 *RAEAAEAAEEAAAAAAAKAAAAAAERAAAAAARARARERAAARAAARAARAKKAKKKAKAKAAKRAREAKE 
SeTEST 3 UNIBUS INITIALIZE TEST 
1 ° *SERAAAAAAAAAEAAAARAEAAAARAEAEAARARARARRARAAERERAKEREARERAREKKKKRKKKEE 
1 aes :SCOPE CALL 
1 40 “START OF TEST 
1 1 1100 MOV ASTACK ‘INITIALIZE STACK POINTER 
1 1 1276 MOV :RO = UNIBUS ADDRESS 
1 13701 001 MOV 7(R1) = DEVICE BEING TESTED 
1055 12737 901306 MOV ::D0 1 ITERATION 
1 12737 3 001226 MOV #3. S$TESIN [:SET TEST NUMBER IN APT MAIL BOX 
199 010 737 052466 JSR PC .CNTCLR : CONTROLLER CLEAR 
1C BR 1 $ If V7 ERROR 
1 4 NOP ih 
1¢ EMT Se 
1066 137 011402 ‘a JMP 15$ 760 
109 010604 01 101 ( MOV 5. R2 : 
ie ie fee ms, Ey 
1 1065 112737 1546 MOVB  #200,PUTINX+1 ~ 
114 010632 004737 043016 "SSRs PC PUT ; 
1063¢ 04 BF 3$ ; 
1064C NOP ; 
106 EMT : 
10€ 011402 JMP 260 TO - 
1}? 106! 3$: DEC >; DECREMEN 
16 106 BNE “WRITE SI 
118 proces O1Se80 Leneee GO4e6 mov cRMER1 
Pe b = 
113 106 12737 177777 001454 MOV : 22 





oe eek) 


S38 


™~ 


a 


oo 


REREAD ENN 


ed ed eed eed ond od 
© 


—_> 
& 


Ooooeseo OoOoofo GOOCoOoOoOOOCOOoOOoOoSOoOOSO O0O 


ee wamb and cd ed eck emad coud aad wend coll esd aod cond amg mb od ced ceed ceed ceed cmd eed eee) etd ed cod edd cd ced od od ond — 


on mead wer emcd woh exch ub work nak cod each sand cat oun, od emt) omc wom) ome add unt. oxad) wed ened cond eeek weak cay eel oad edt ord 


ease SSS RESERE SERS 


SOoooecocoe 


wed eed eb wad aod od wed 


Ooooeo 


en et coed ees cody edd wrad sed cud weed mond ed emed meet cee ern eed wens ceed od eed eed eth eed ced ee ce 3) ed od cd 


SHUSALERLIS SSVSUFUNALSSHVES 


= 
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MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-3 SEQ 0087 





















Ni PTI 
NITIALIZE TEST 
12737 14 MOV 'DBEN, RMMR10 :SET DIAGNOSTIC MODE 
013737 008877 00143 MOV 7008877 RACSIO 
1 1037 00142 MOV 1037, RMCS20 
o% 7 MOV #PUTINX,R :R2 = ADDRESS OF INDEX TABLE 
1 MOVB (R2)+ 
11 MOVB §#RMERI,(R2)+ 
11 MOVB #RMERS. (R )+ 
11 MOVB *(R 
1 MOVB #RMCS1.(R2)+ 
11 MOVB $2, (R2)+ 
11 MOVE R2)+ 
JSR PUT 
BR 
NOP 
EMT 
011402 JMP 15$ 
4$: RESET 
40 JSR PC .STKINT 
160 1 MOVB (Ri) .RMCS2(RO) 
004 JSR PC,GETSTS 
737 042546 JSR PC.GET 
3 BR “5 
$08 NOP 
EMT 
000 BR 15S 
13737 001336 00114 S$: MOV RMCS11,$SBDDAT 
, 4 114 BIC ¢ AT CIAL CONDITION 
12737 00114 MOV ADVAIRDY,SGDDAT :EXPECT DVA & RDY 
7 0011 1142 CMP DAT,SBDDAT :COMPARE EXPECTED, RECEIVED 
1401 BEQ ! “BRANCH IF EQUAL 
115 EMT 115 
7 00114 6$: LR SGDDAT :VERIFY RMBA IS ZERO 
030 ? OO 1se> 001142 MOV RMBAI , SBDDAT 
1401 BEQ 7$ :BRANCH IF ZERO 
104116 116 
13737 001346 001142 7S: RMCS21,$BDDAT  ; VERIFY RMCS2 
046 ~(SP) ‘EXPECT IR & UNIT NUMBER 
111 (R1), (SP) 
527 1 #IR, (SP) 
1 14 (SP5+ SDDAT 
7 001140 001142 scppar. AT  ;COMPARE EXPECTED & RECEIVED 
14 J “BRANCH IF EQUAL 
11 117 
? 114 8$: SGDDAT :VERIFY RMER1 
13737 00135 001142 RMER11,SBDDAT 
7 114 #UNS, SBDDAT s IGNORE UNSAFE 
4 1 +e “BRANCH IF ZERO 





o. 737 001354 001142 9$: MOV RMASI ,SBDDAT VERIFY RMAS 
CLR R2 sCLEAR ALL BUT THIS 


pinadoraescennesanciianbins 


: 
: 


= 
== 
~~ 


SS3a 
ee eee ee ee 
od — 3 
- noo 


emod ond cmd wad 


sce ee ce ce ce ee we ee cee ed eed ee ee ee eed ceed el eee cee ee ed cee eed ceed eed eed ceed eee 
ReaeNe PERS RRSSM 
Oooon > 


LSSSLEFRASLSSELES 


ema oes wood cual) eed ced week eek coud wad od od eed eA ed xd od awd eed eed wend <mnd ed od 


Se URegueUKEeERC 


ancet awd cond amd ane) cob 
eee meee ew ds wre eve mene ond ccand) coed soot seek om mh 
RE Rn N==So05 


Mr 
—— 


RN-s 


Ro 
—s 
aad 
oOooocoo 


eth met med cotta 


11 


Sues 
NNN 


sgees 


~~ 
WRORIW 
NN 


a 


7 
=e 
W=NNN 


NOS 


es 


om 
& 
—) 


sud coer 
N= 


000001 


001142 


011740 


001226 


10$: 


11$: 


12$: 


13$: 


14$: 


15$: 
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BUS INITIALIZE TEST 





1ER1) .R2 :DRIVES ATTENTION BIT 
R2,SBDDAT 
sBRANCH IF ITS 0 
RMAR1I-SBDDAT — : VERIFY RMMR 
WaC its? LST, SBDDAT 

| DAT sEXPECT WRITE DATA BIT 
SepDAT, SBDDAT [COMPARE E 
ig ‘BRANCH IF 


EXPECT ZEROS 


ae -SBDDAT VERIFY RMEC2 = 0 





RMMR21,$BDDAT 

#ROA!ROB, SBDDAT 

#TST! 1777, $GDDAT 
DAT, SBDDAT 


1 






SGDDAT 
RMER2I , SBDDAT 
— 


: 
pester tiat 
a T SéDDAT 


VERIFY RMMR2 


E WORD CLOCK, SCT, TRK 
Zs we AND RECEIVED 


sEXPECT TEST, TAG BIT ON 


sEXPECT ALL ZEROS 
:VERIFY RMER2 


SIGNORE DEVICE ERRORS 
sBRANCH IF OTHER BITS 0 


esitt DRIVE STATUS REGISTER 





A 
T ;EXPECTED ST. 


ATUS 
: COMPARE EXPECTED A. RECEIVED STATUS 


;DRIVE STATUS IS OK 


FF TRAAAAAAEAAAAERAARERERERAAERERAAERAERAAEARAEAERAAREREARAERREREREEEEE 


CONTROLLER CLEAR TEST 


pi a ea ag ak ac lila 


S*TEST 4 
S14 


1$: 





ea rack 
Eko. 
TsTaue 1 


_——s 


SCOPE CALL 





sSTART OF TEST 
s INITIALIZE STACK | 





RO = UNI 
: (RD) = DEVICE BEING TESTED 
sSET TEST NUMBER IN 





APT MAIL BOX 


260 is CONTROLLER CLEAR 

760 TO IF NO ERROR 

sRETURN HERE IF ERROR 

: ERROR R_ DEFINED BY SUBROUTINE 
:GO TO 8$ IF ERROR 


SEQ 0088 


te 


Moronorng 
SES 
Sooooooo ooo°o°ooo 


Ww — NOUS _ 
el cee cel cecal cee eel ene) el cel cl cone cee eet meee cee ce ee ee ee ce ce cc cere ee cd eee ceed ce cee ce ceed eee eed ee ced ee ee ed eed ce ceed et eed ae ed ee ed eed ed ed 


oO SOOOOOOCOSoOSSoO 


a 


a ee eS) 


as 


NERS 
MO 


ed eed ce cd ceed eed ceed ceed eed eed el el eed ced ed ed ced esd ec 


cond cud ed) ed ce mee ood emnd ond ad eed aad 
ao 
ad 
MrmoO 


ERSONSSES KERROES KOESN 


= 22 


ey area ee me eb ceed ee me Oot mtd ceed) weed eed cect oad 
~ 
st 
Oo 


“~~ 
Sx 
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T 
ROLLER CLEAR TEST 





ney 5.,R2 
MOVB #§ #RMDB,PUTINX 
MOVB $#200,PUTINX+1 
JSR PC,PUT 
a OtCOSS 
NOP 
EMT 
JMP 
3$: DEC 
BNE 
1 MOV 
1 MOV 
1 MOV 
1 MOV 
ot MOV 
1 MOV 
01 MOV 
11 MOVB 
1 MOVB 
11 MOVB 
11 MOVE 
11 MOVB 
1 MOVB 
11 MOVB 
35 ty 
03 BR 
NOP 
EMT 
BR 73 
4$: 
004737 052466 JSR BC. CNTCLR 
04 BR 5 
40 NOP 
1 EMT 
137 011740 JMP 8$ 
7 042462 5$: JSR PC,GETSTS 
737 042546 JSR PC,GET 
04 BCS 
40 NOP 
1 EMT 
137 011740 e JMP 8$ 
737 052604 JSR PC,CLRSTS 
05 BR 7$ 
4 NOP 
EMT 
JSR PC,a(SP)+ 
137 011740 - JMP 8$ 
012737 000000 001412 MOV A#NOP ,RMCS10 
004737 044416 JSR PC, SECERR 
03 BR 8$ 


‘Se 





;WRITE pends 


3 N DATA SILO 
SETUP REGI I 


i 
TER INDEX TABLE 


RROR 
RROR 
INED BY PUT SUBROUTINE 


OUNT 
ILO AGAIN IF NOT DONE 


sR2 = ADDRESS OF INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
4$_ IF NO ERROR 


SRETURN HERE IF ERROR 
TERROR # DEFINED BY PUT SUBROUTINE 


:GO ISSUE CONTROLLER CLEAR 
GO TO 5$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR NUMBER DEFINED BY SUBROUTINE 
G0 TO 8$ IF 

SETUP TO READ ALL REGISTERS 


:60 READ REGISTER(S? WITH GET SUBROUTINE 
“RETURN HERE IF ERROR 

“ERROR # DEFINED BY GET SUBROUTINE 

°60 TO 8$ IF ERROR 

:60 VERIEY CONTROLLER CLEAR OPERATION 
:60 TO 7$ IF NO ERROR 

“RETURN HERE IF ERROR 

“ERROR # DEFINED BY CLRSTS SUBROUTINE 
*G0 BACK FOR MORE ERROR CHECKS 

*60 TO 8$ IF ERROR 

sCHANGE FUNCTION CODE FOR ERROR CHECK 


GO CHECK FOR SECONDARY ERRORS 
:GO0 TO 8$ IF NO ERROR 


SEQ 0089 


a aa. 


7 
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14 CONTROLLER CLEAR [EST 


250 a178 
$23 
52 


—— 


Nore 
Atv 


Ww 
SaN 
SOooooooossS OOOCooooooooeoeoeoesoo OOCOCOoOCO 


ooh and end ood eed ced cand end cud and cond ed eed = ed ed eed ed ceed eed ceed eed eed ceed eed = ced eed eed eed eed ed eed wed cmd cmd ond oud 


1 






eet cach and anrk ao ecalh coal} ends real 


VOOR 
© coco 
% AIGA 

& Bw 
esr= 
St 

So 


012146 


0117 4 
1 ae 
i 


012146 


19 


001226 


001142 
001142 


114 
114 


RETURN HERE IF ERROR 
sERROR # DEFINED BY SECERR SUBROUTINE 
G0 BACK FOR MORE ERROR CHECKS 





EMT 
JSR PC ,a(SP)+ 


ff RARER ARAEAARAEERAREREEEEEREREERERREREEREREEEEEREEHEREEREEEE REE 
s*TEST 5 ERROR CLEAR TEST 


eri ti iii iii iii iitililiiiifififiiiiiiiiiiiititiiiiiiiiiiit. 
T5: 


















SCOPE :SCOPE CALL 
NOP ‘START OF TEST 
#STACK sP SINITIALIZE STACK POINTER 
R :RO = UNIBU ESS 
TSTQUE ,R1 ?(R1) = DEVICE BEING TESTED 
#5,$TESTN *;SET TEST NUMBER IN APT MAIL BOX 
PC, CNTCLR :G0 ISSUE CONTROLLER CLEAR 
1$ :GO TO 1$ IF NO ERROR 
SRETURN HERE IF ERROR 
: R DEFINED BY SUBROUTINE 
1s :G0 TO 5$ IF ERROR 
:SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 
*SET RMCS1 OUTPUT BUFFER = TRE 
[GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 2$ IF NO ERROR 
sRETURN HERE IF ERROR 
*ERROR DEFINED BY PUT SUBROUTINE 
“ JMP *GO TO 5$ IF ERROR 
MOVB 
MOVB 
MOVB 
JSR :60 READ REGISTER(S) WITH GET SUBROUTINE 
BR :GO TO 3$ IF NO 
NOP sRETURN IF 
EMT sERROR # DEFINED BY GET SUBROUTINE 
BR “SKIP REST 
3$: MOV -CHECK TRE & MCPE 
CLR “EXPECT 0°S 
BIC #°C<TRE!MCPE>, SBDDAT 
BEG 4 *BRANCH IF TRE & MCPE = 0 
EMT 137 
4$: MOV RMCS21 ,$BDDAT_ ;CHECK RMCS2 
BIC #*C<WCE 'UPE 'NED' PGE (MXF !MDPE>, SBDDAT 
BEQ 5$ 
EMT 140 
5$: 
FF AAAAAAAREAEEEEARRAEEERERAERARAAAERARAERAARAREAAREAEAAEEREAEARAERERERE 
*STEST 6 DRIVE STATUS TEST 
ao. ee 


SEQ 0090 


—— 


DRIVE STATUS TEST 


oooo°co 
ened ceed ad cond aed cowk 
MINININIAITY 
eww ed ord not sd -and 


—_ 


MOPQPROPININOPY 
~ 
= 


ANESSASKERRNS NN 


2S SeeSess 


PORIPUPINONINININPININOY 


let 


? 
Sooooeoeo oooeoeoceo ooooo Sooooooococecoo 


bd ebb eee ede eee eB eee ee ced ed ced eed eed ed eed ed eed ed ed 


Win 


w= CO ve 


* a4) 


e EREGES S2S28 


7. 


on 


3 Od NOUS Wily © 


Oooooo 


ered weed) rend aed ord 


Aft) end and ond and ond ond od ad od ed OO OOOOOOOOOOOOHooowes 
PRRALK 


oS 
ah 


eared 
5 
Wi 
N O29 NNNONS 


SPeack RSn= : 
Eva ; Repeat 


mols 


5 


001226 


18: 


2s: 


48: 


5$: 
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He Pp 


Teta R1 
#6, STESTN 


PC,CNTCLR 
1$ 


8$ 
PC,GETSTS 
PC.GET 

2s 






SSDDAT 


#UNS ,RMER11 
RMER11 ,SBDDAT 
»SGDDAT 


5$ 





#SKI ,RMER21 


8$ 
Sele RMDSI 


oRMERTI 


SEQ 0091 


ING TESTED 
IN APT MAIL BOX 


+60 READ REGISTER(S) WITH GET SUBROUTINE 
:G0_TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

sSKIP REST OF TEST 

;MEDIUM ON LINE?? 

sYES!! 

EXPECTED STATUS 


S$GDDAT 
#ATA!ERR!PIP!LBT,SGDDAT 
sa 
ADVC ,RMER2I 
RMER21 , SBDDAT 


sRECEIVED STATUS 
;MOL STATUS INCORRECT 


“a 


18 THERE A DEVICE CHECK? 
ECEIVED STATUS 

SEXPECTED STATUS 

IVE FAULT 

1S UNS SET? 

{RECEIVED STATUS 

ZEXPECTED STATUS 

Fove 18 Se BUT "UNS" IS NOT 


® 
FTI ome 9 


z1S UNS SET?? 
APCEIVED STATUS 

sEXPECTED STATUS 

*DvC’’ IS NOT SET, BUT "UNS" IS 
“SKIP REST OF TEST 

18 J WRITE PROTECT ON?? 
EXPECTED STATUS 

V!0M> 


RECEIVED STAT 
SELECTED DEVICE IN WRITE PROTECT 


sIS SKI SET?? 
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T DRIVE STATUS TEST 
SUE seg om 
4 01 7 114 
> 01 104205 
g 01 
8 


© 


Ww 


HEE Sau 
SOocoococooooocoooocoeooao oOoOOoOOo 


ed ced nd cand ceed od ened ed can eed rd) ad ed 
—s 
& 


| ORR 


—— 
r~ 
oN 


weal} cmc <add 
oO 


a 


Wise 
orn 


MUMIA AIA 


oma eco wench ond eed ound ceed ed ened cod 
Ww 
Ww 


rs 


VIN 
oF 


mrad ned wend ed mead 


043564 


044416 


1$: 


2$: 


3$: 


4$: 


5$: 





BEQ 
MOV 
CLR 
EMT 





; *TEST 7 


SCOPE 
NOP 


MOV 
MOV 
MOV 


MOV 
JSR 
BR 





JSR 
BR 


NOP 
EMT 
JSR 





8$ 
RMER21 , SBDDAT 
DAT 


205 


sNO!! 

3RECE1VED STATUS 

sEXPECTED STATUS 

;PERSISTENT SEEK INCOMPLETE ERROR 


SEEEAEAAEAEAEEEKEEEAEAAEEEAEAEEAAAEAAEAAAARAARERAEAARAREARERKKKEKAKKKS 


PRIMARY/SECONDARY ERROR TEST 


REAAAAAAAAEEAAAAAAEAEEREEAAEAAEAAKAAAEARAKRERARERAKREEREKEKKRKKKEKKE 


#STACK sP 


SBASE 
re aue Rt 
#7, $TESTN 


PC,CNTCLR 
1$ 


5$ 
S1,PUTINX 
ie 


ttt. ners 


5$ 
PC ,GETSTS 
PC, TIMOUT 


e 


~ PC,GET 


3$ 


5$ 
PC PRIERR 
4% 


Se eAsaP?* 


PC,SECERR 
5$ 


PC,a(SP)+ 


$10. -SET RMCS1 


: SCOP ont 

SSTART OF TEST 

SINITIALIZE STACK POINTER 
IBUS ADDRES 


;RO = UN 
:(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


:GO ISSUE CONTROLLER CLEAR 

:G0 TO 1$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 
:G0 TO 5$ IF ERROR 


SETUP PUT INDEX TABLE 
2SET or a BYTE 
OUTPUT Ah Ee 


wRITE Recs VIA PUT SUBROUTI 
‘G0 TO 2$ IF NO ERROR 


;RETURN NERE IF ERROR 
DEFINED BY PUT SUBROUTINE 
SKIP REST OF TEST IF ERROR 
ett FOR STATUS FETCH 
WAIT FOR COMPLETION OF NOP 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
760 TO IF NO ERROR 

sRETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

;SKIP REST OF TEST IF ERROR 


GO CHECK FOR Bay nt ERRORS 
60 TO 4$ IF NO ERROR 
sRETURN HERE IF ERROR 

ERROR # DEFINED BY ROA cre or 


:G0 BACK FOR MORE ERROR 

:SKIP REST OF TEST IF ERROR 
:GO CHECK FOR SECONDARY ERRORS 
:60 TO 5$ IF NO ERROR 


HERE IF ERROR 
;ERROR # DEFINED BY SECERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 









PAKACK ! GO 











a” 6 Glace 


SATEST 10 


"Sethu absbndabdebeeerecteeaaetenksesaenqadnuaceatqntedsientenens 


DIAGNOSTIC MODE T 


WWAAN 


SS OONOUE 


oOo 
eed eed enc eed cond coe) cand mend cond cond comb end wok emed eed coed eed odd ceed ocd eed) sd ems) eed 
SOOOS 
os 


~> 


wn 
ote = 


™~ 


oa’ 


SoSkPSCESkE 
AYA VSB = 


JOOS 


& 


nb ond and and ond and ond ond ond and ad ad > OOOO 
Ww 


ae 
wv 
! 
— 


a 


a Ss 
RN NSSES 


sz 8 
oe 


S235 
aaa 


388 


ga5 85 
oR SN 


See 
Faust 


Xs 
es 


€ 
= 


wi 
SN 


So 
—_— 
SN NO NNN 2 NNO NIN 


Ratack 
esos 


=e 


000010 


052466 


11 
1 


013714 
000024 
000200 


000001 
043016 
013714 
042462 
042546 


013714 
000001 


001362 


013714 
010000 


001226 


001400 


137777 00114 


C 


580 V04.00 28-JAN-82 16:24:51 PAGE 15-9 






TST10: 
SCOPE 
NOP 
MOV #STACK,SP 
MOV E 
MOV TSTQUE ,R1 
MOV #10. $TESTN 
JSR PC, CNTCLR 
BR 1$ 
NOP 3 
EMT 

JMP 21$ 

, MOVB  #RMMR1,PUTINX 

MOVB #200, PUTINX+1 
MOV #DMD , RMMR10 
JSR PC PUT 
BR 2$ 
NOP 
EMT 
JMP 21$ 

2$: JSR PC,GETSTS 
JSR PC,GET 
BR 3$ 
NOP 
J 

3$: 

43: 

5$: 

6$: 

7$: I #SK1,RMER2ZI 


RMER21 , SBDDAT 
#°CSK1 ,SBDDAT 


ERROR NUMBE 
3:60 TO 21$ IF 


TEST 

ZE STACK POINTER 

BUS ADDRESS 

= DEVICE BEING TESTED 

T TEST NUMBER IN APT MAIL BOX 


:GO ISSUE CONTROLLER CLEAR 


GO TO 1$ IF NO 


*RETURN HERE IF ERROR 


R DEFINED BY SUBROUTINE 
ERROR 


;SETUP PUT INDEX TABLE 


:SET TERMINATOR BYTE 
:SET RMARI 
:G0 WRITE 
:G0 TO 2$ 
sRETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 


OUTPUT BUFFER = DMD 
RMMR1 VIA PUT SUBROUTINE 
IF 4 ERROR 


:G0 TO 21$ IF ERROR 
SETUP FOR STATUS FETCH 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
G0 TO 3$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


:60 TO 21$ IF ERROR 
ae MODE SET?? 


SEXPECTED STATUS 
SRECEIVED STATUS 


SKIP REST OF TEST IF DMD = 0 
:iS "MOL" =0° ?? 


S SETUP BAD DATA FOR TYPEOUT 

;SETUP GOOD DATA FOR TYPEOUT 
31§ PIP SET?? 

SETUP BAD DATA FOR TYPEOUT 

EXPECTED PIP SET 

31§ WRITE LOCK OFF?? 

[SETUP BAD DATA FOR TYPEOUT 

sEXPECTED WRL = 0 

iS SkI = 0 

[SETUP BAD DATA FOR TYPEOUT 
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PT MAC ® $s 4 7 
“iene DIAGNOSTIC MODE TEST ee 
LR DAT SKI SHOUL 
0 179 106008 a ERT 203 R21 51S DEVICE CHECK = 02? 
4 O1 17 SH 000200 001400 8s: BIT #DVC .RME :18 DE tg 
; RMER21,$BDDAT SETUP BAD DATA F 
Riis flares couse suites Bi eae sepa 
} 7 001140 CLR DAT :DVC SHOULD BE 0 
5 3 EMT 203 
a ware is T INDEX TABLE 
: 1,PUTINX ;SETUP PU 
oe 145939 000200 Eee nOVB 9200 PUTINX?T “SET TERMINATOR BYTE | 
4 sistas oorase nov #DMD ! IMDF 'MWP , RMMR10 :SET RMMR1 OUTPUT BUFFER = DMD!MURIM 
fee dea Bee Bie ne neh Ram va er SSL TL 
13526 rf : RE IF ERROR 
§13560 30 < ERROR’ DEFINED BY PUT SUBROUTINE 
+t 00073 013714 21$ [G0 70 21$ IF ERROR 
335 O13500 _ -GO READ REGISTER(S) WITH GET SUBROUTINE 
395 if i 090404 —_— “all $60 To 1 15 IF NO ERROR 
61397 $0 CERRORY # DEFINED BY GET SUBROUT INE 
Oy b004 013714 *60 TO 21 IF ERROR tne 
3 o1 032737 000001 001362 11S: :18_DIAGNO E SET?2 
SGDDAT *EXPECTED STATUS 
$f 4 ra! aged OOTtee 11,$BDDAT :RECEIVED STATUS 
38 1 596159 sSKIP REST OF TEST IF DMD = 0 
137 013714 s 
200 63 032737 010000 001350 128: $18 MOL 12? 
402 Ot Trae 901350 001142 -SBDDAT *SETUP BAD DATA FOR TYPEOUT 
103 i 042737 167777 001142 #°CMOL AT ‘ 
694 i 36; b43937 010000 001140 SSGDDAT sEXPECTED MOL = 1 
108 013375 082757 020000 001350 13S: :18 PIP = 0? 
408 O13608 Or aesy 1350 00114 AT _—s« = SETUP BAD DATA FOR TYPEOUT 
Oaate  paaeae 00114 SBDDAT 
210 013416 008087 001160 T SEXPECTED PIP STATUS 
HH SIEse HES costco wots us: ‘Ig wx ser 
41% 01 *SETUP BAD DATA FOR TYPEOUT 
dig O13 15787 01350 porte SDA 
“1 L ) 012737 004000 1140 #URL .$GDDAT sEXPECTED GOOD STATUS 
HI BIE® SEI conn 0100 ss Ig pt ser 
130 O1347 10) R21,$BDDAT :BAD DATA FOR TYPEOUT 
420 OT3470 913787 01400 0114 BAER SB0DAT 
ri , 1 +5 7 040000 00114 1,$GDDAT sEXPECTED SKI ON 
4 $ i ate 493599 000200 001400 16$: #DVC .RMER2I :1$ DVC SET 2? 
2 Oi ae5e 5739 AT  :BAD DATA FOR TYPEOUT 
14 114 RMER21 , $BDD : 
d i 324 7 oore OOite #°CDVC;SBDDAT 
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nay #DVC ,SGDDAT EXPECTED DVC ON 
17$: BIT 3 MUR we HAVE RESET VOLUME VALID 
BEQ SBRANCH IF IT DID 






;BAD DATA FOR TYPEOUT 
:GO0D DATA FOR TYPEOUT 


















18$: 
#RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
#200 PUTINX+1 SET TERMINATOR BYTE 
RVCLR!GO, RMCS1 10. RMCS1 OUTPUT BUFFER = DRVCLR!GO 
Pc Put Go warTE rcs VIA PUT SUBROUTINE 
*60 NO ERROR 
; RETURN HERE IF ERROR 
“ERROR DEFINED BY PUT SUBROUTINE 
‘is 218 - “GO TO 21$ IF ERROR 
PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
20$ *GO TO 20$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT “ERROR # DEF INED BY GET SUBROUTINE 
JMP 21$ :GO TO 21$ IF ERROR 
20$: BIT LBC .RMERZI :18 LBC SET” ” 
MOV RMERZI.SBDDAT *BAD DATA FOR TYPEOUT 
MOV #LBC, $GDDAT "GOOD DATA FOR TYPEOUT 
BIC #LBC gsevvat 
E 3 
218: 
FERRARA AE EARAAAERAAAAAAERERAARAAERERAREAAEERREREREERREREREEERERE 
CSTEST 11 PACK ACKNOWLEDGE TEST 
ee el ti gpa aimee 
T : 
SC CAL 
*START OF TEST 
#STACK ‘INITIALIZE STACK POINTER 
‘RO = UNIBUS ADDRESS 
TST reraue 7(R1) = DEVICE BEING TESTED 
WaT estn °:SET TEST NUMBER IN APT MAIL BOX 
PC,CNTCLR CONTROLLER CLEAR 
1$ NO ERROR 
RE IF ERROR 
R DEFINED BY SUBROUTINE 
re 8$ ‘60 TO 8$ IF ERROR 








sSETUP PUT INDEX TABLE 





ARMAR , PUT INX 
#200 ,PUTINX+1 
#DMD , RAMR10 





8$ 
2$: 


SEQ 0095 
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SES RSRVSEK 
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SSIS NS ee NN ee 
ceed eed cod cont edt 83 ad cond ceed ered end cca comd ck and ened weed aad od eed 


SRNSERRSSELVSARLS 
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014214 


014214 
042462 
043370 
042546 


043564 


053464 


044416 
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DGE TEST 


#200 PUTINKeT 
Sar 


#RMACS1 ,PUTINX 
#200 .PUTINX+1 
#PAKACK '!GO, 


GO,RMCS1 


8$ 
PC,GETSTS 
PC, TIMOUT 


PC,GET 
5$ 


8$ 
PC .PRIERR 
6$ 


PC ,a(SP)+ 
8$ 


canals 
PC ,a(SP)+ 
8$ ; 

oes 


PC ,a(SP)+ 









BUFFER = 0 
A PUT SUBROUTINE 


A PUT SUBROUTINE 
RROR 


sWAIT FOR COMPLETION 
260 2g Rag tL WITH GET SUBROUTINE 





: IF NO ERROR 
sRETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 
sSKIP REMAINDER OF TEST 


GO CHECK FOR PRIMARY ERRORS 
NO ERROR 









HECKS 


CONDARY ERRORS 

ERROR 

IF ERROR 

NED BY SECERR SUBROUTINE 
MORE ERROR CHECKS 


£ FAAAAARAEAAEAERAREAARALEREREAERARERAARAERARAARAAAAARAAARAARARAAARRAREE 


RECALIBRATE TEST 


3$: 
4$: 
BR 
NOP 
EMT 
SR 
S$: 
JSR 
BR 
NOP 
EMT 
JSR 
BR 
6$: 
JSR 
RR 
NOP 
EMT 
JSR 
BR 
7$: 
JSR 
BR 
NOP 
EMT 
JSR 
8$: 
:*TEST 12 
S11 
MOV 
MOV 
MOV 


STACK P 
TeTOUE RI 


RAETAARAAAAARAAAAARAEAEREAAREAARAERARARARARARAARAAARAAERAAAARERARAEER 


sSCOPE CALL 

“START OF TEST 

s INITIALIZE STACK POINTER 
7(R1) = DEVICE BEING TESTED 


TE 
OUTPUT BUFFER = PAKACK!GO 


SEQ 0096 
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RECALIBRATE TEST 
014234 012737 


O73 on4a2 904737 


oan wend md mond 


as 
~P 


eed ceak eed wed ad od 


&& 
o —~ 


Be 


OSooooooooooooo OOOO COOOCOOOCOOOO 


RRESES 


Se 


Ss 


388 


wi 


PERERA LRRSSE 
“N 
oO 


pa at at ety 
ANALNS 


PEPPERS LLP 


SNISERES RESO SES 


™ 
 ~ 


, a 


eOO 


ee 


& 





000012 001226 


041532 


014424 


043016 
Oishes 
068376 
042546 


014424 
043564 


014424 
054260 


014424 
044416 


001100 








#12, STESTN 


056020 





1$ 


6$ 






6$ 
PC,GETSTS 
PC, TIMOUT 


RgeGET 


6$ 
PC ,PRIERR 
43 


PC ,a(SP)+ 
6$ 


PC,RCLSTS 
5$ 


a 


a 


PC ,a(SP)+ 


#RMCS1 ,PUTINX 
ae ePUTINX+1 
#RECAL !G0, — 
PUT 


:3SET TEST NUMBER IN APT MAIL BOX 
‘Task 


ys: FOR hy 


LOWS: 
SELECT DEVICE 
IF VOLUME NOT VALID 
VERIFY ote oe 
7RETURN HERE IF 
# DEFINED BY TSTPRP SUBROUTINE 
60 TO 6$ IF ERROR 


sSETUP PUT INDEX ae 
:SET a BYTE 















RROR 
60 TO 6$ IF E 
:GO0 SETUP FOR STATUS FETCH 
sWAIT FOR COMPLETION 
‘ee y= en ag pL WITH GET SUBROUTINE 

NO E 


CRE TURN HERE IF ERROR 
“ERROR 8 Oe eae BY GET SUBROUTINE 
3:60 TO 6$ IF ERROR 


60 CHECK FOR PRIMARY ERRORS 
NO ERROR 










F 
2:60 VERIFY REC TeeArTe OPERATION 
F NO ERROR 
ERROR 











ERROR # DEF BY RCLSTS SUBROUTINE 
GO BACK ERROR CHECKS 

3:60 TO 6$ 

360 CHE 

360 TO 

sRETURN 


SECERR SUBROUTINE 
RROR CHECKS 


® 
g 
3 


J AAAAAARAAAAEAAAAEEAEAELERAAEAAERARARARRARARARAEAAAAEAAAAAAARARRERAEE 


T RECALIBRATE TEST 


TTITIITI LILI LTT LEL ELL LLL LLL 


1$: 

2$: 
BR 
NOP 
EMT 
JMP 

3$: 
JSR 
8R 
NOP 
EMT 
JSR 
JMP 

4$: 

5$: 
8R 
NOP 
EMT 
JSR 

6$: 

7 *STEST 13 

$113 


SCOPE 





@STACK SP 


; SCOPE ee 
‘START OF TEST 
SINITIALIZE STACK POINTER 


SEQ 0097 


H & 
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NL 
T RECALIBRATE TEST 


sees 


= 
wo 
Oe] 


R 


OSooooocoeoooo 


ed ced ced ened ced ceed ed eed ed eed eed ceed eed ed 


PREP REPPRERRE RRR SS 
WNSSeESS BUUONI SSS 


Pas 


= 
z 


ooo 


oud nd end ced end cud ced ee em el el eed eed ee eed eed ed esd met eroded ceed acd weed ood umd oad 


gRRSESAENE RERASESEE 


¥ 


as 


SS 





:RO = UNIBUS ADDRESS 
aut ;(R1) = DEVICE BEING TESTED 
Ate STESTN pst TEST NUMBER IN APT MAIL BOX 


SMM SiR tg 


L SELECT DEVICE 
LER ey OPERATION 
DGE IF VOLUME NOT VALID 





1276 MOV 
Ben 
13 80150 MOV 
JSR 
WORD 


1 

7 

7 
004737 041532 

130 






























104 EMT STPRP SUBROUTINE 
000137 014732 al JMP 9$ : 
112737 000014 001545 R1,PUTINX 
112737 001546 # 
012737 001426 #UNS PUT 6 FER = UNS 
004737 043016 PC .PUT t REERT VIA PUT SUBROUTINE 
900404 <60 TO 28 IF NO ERROR 
104 00 zRETUR AY CE INED. By PUT SUBROUT INE 
000137 014732 - 9$ EO TO OT OF it ERROR 
113737 000000 001545 MOVB :SETUP PUT INDEX TABLE 
112737 200 001546 MOvVB sof :SET TERMINATOR BYTE 
012737 7 001412 MOV ARE °§ S1 OUTPUT BUFFER = RECAL!GO 
004737 16 JSR PC .PUT RMCS1 VIA PUT SUBROUTINE 
04 BR IF NO ERROR 
40 NOP 
1 EMT 
1 14732 JMP 9$ 
7 0424 3$: JSR PC,GETSTS 
042546 sR PC,GET 
EAT INED BY CET SUBROUTINE 
014 JMP 9$ RROR ) 
933000 001350 4$: BIT #PIPRADSI RECALIGRATE?? 
EMT 214 
043370 5$: JSR PC, TIMOUT :WAIT FOR COMPLETION 
042546 JSR PC GET 260 READ REGISTER(S) WITH GET SUBROUTINE 
BR 6% *60 TO 6$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 





ado 
m 
a8 
~e§ 
e @e 


sERROR # _ BY GET SUBROUTINE 


014732 sas! JMP 9$ *60 TO 9$ IF ERROR 
737 043564 ; JSR PC -PRIERR 
5 BR 
4 NOP 





faa} 
=z 
4 


AL RO 
3 ABORT RECALIBRATE TEST 


33 


CSOSOSOOOSOOCO 


eed anew 


awn 
oo SOOooocoecooe 


wack anc eod comb eed em ced and ed od 


Vw 
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46 JSR PC, a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
467 ited 014732 - JMP 9$ 760 TO 9$ IF ERROR 
7 7 060210 JSR PC,STCDRVSTS ;:60 CHE Ck FOR S IN DRIVE STATUS 
4 5 BR 8$ 760 TO 
4 40 NOP SRETURN HE 
4 1 EMT TERROR # D STCDRVSTS SUBROUTINE 
471 JSR PC,a(SP)+ *GO BACK F RROR CHECKS 
rie 137 014732 “ JMP 9$ 760 TO 9$ 
471 737 044416 JSR PC,SECERR :60 CHECK 
4 3 bR 9$ :60 TO 
4 40 SRETURN HE 
4726 1 EMT *ERROR # D 
4 004 PC,a(SP)+ 760 BACK F 
4 9$: 
fF ARAAARARAAAAEEAREAAAAEREEEEERERAAERARARAEAREKREREREEEKERERREREEREREERE 
“RTEST 14 IVC RECALIBRATE TEST 
a ee ee 
4 : 
4 $ SCOPE :SCOPE CALL 
4 eet NOP SSTART OF TEST 
4 O12 06 001100 MOV #STACK, SP “INITIALIZE STACK POINTER 
4742 013700 001276 MOV E.R ‘RO = UNIBUS 
47 01 701 001466 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
4752 012737 000001 001206 MOV #1,$TIMES °:D0 1 ITERATI 
4760 012737 900014 001226 MOV #14, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
4766 737. 041532 JSR Pe TSTPRP :PREPARE DEVICE FOR TEST 
4 054130 WORD 0541 = TASK DESCRIPTOR AS FOLLOWS: 
*CLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
ani hCBRe ats gO NOT VALID 
: Sxl’ OR ‘PIP’ IS SET 
; IBRATION | 
BR 1$ : 
NOP ; 
EMT SERROR # D 
i JMP &$ 760 TO 8$ 
MOVB §#RMMRI,PUTINX ;SETUP PUT I 
MOVB #200,PUTINX+1  ;SET TERAINA 
MOV ADMD ‘SET RMMR1 OUTPUT BUFFER = DMD 
JSR BC .PUT 60 WRITE RMAR] VIA PUT SUBROUTINE 
BR 760 TO 28 ERROR 
NOP *RETURN HE 
EMT ERROR DE BY PUT SUBROUTINE 
2s JMP 8$ :60 TO 
rs aM eee eaa 
MOV hig Bia 0 SET Haas BUFFER = 0 
JSR pC .PUT *60 WRIT IA PUT SUBROUTINE 
BR 3 *GO TO 3$ IF NO ERROR 
NOP “RETURN HERE iF ERR 





eed coed ond owed ame) onedl ceed eraeh ead cond cmd wen ook ved eb ond ad coh and aod 


J 8 






























#STACK 


sSTAR TEST 
s INITIALIZE E “ADbRE _ 





VI vice Bel ine TESTED 


é 
#1,$ iaes 
NUMBER IN APT MAIL BOX 


sen) = iit 
#15, STESIN Aas "HE 
Pe TSTPRP :PREP VICE FOR TEST 
0541 sTASK SCRIPT FOLLOWS: 
AR C TROLLER SELECT DEVICE 
IFY CONTROLLER CLEAR OPERATION 
VOLUME NOT VALID 


“PIP’’ IS SET 


MAMA 





R067 gorz9s 


53 


oo SOOOooOooSoOo 


nd ona muni) cued wand cosh ued aad eed ome 
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ere K ACKNOWL EDGE 
BRATE E If MKT OR 


VERIFY ORECALIBRATION 
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T14 IVC RECALIBRATE TEST 
151 EMT ERROR 
50 , ; 015242 38: JMP 8$ 360 TO 
522 0151 1545 Movs Si,PUTINX ;SETUP PUT 
1511 1346 mOVB sof PUTINKS! aise TERMI 
151 141 #RECAL !0 
151 6 
151 
151 
151 | 
3 1314 a4z060 4$: ce GETSTS FOR 
3 4 183 7 8288 ; PC. TIMOUT “WAIT FOR 
3 6 015156 004737 042546 pC .GET :60 READ RE 
131 5 760 TO 5$ I 
13166 O99 Nor cERROR # BEF GET SUBROUTINE 
F 13170 000137 015242 ss, ve 8s :60 TO 8$ I 
355 015174 737 043564 JSR PC,PRIERR ~  :GO CHECK F 
15 05 BR 65 760 TO 6$ I 
15 40 NOP [RETURN HE 
15 1 EMT : PRIERR SUBROUTINE 
15 JSR PC,a(SP)+ ‘ RROR CHECKS 
13 1 137 015242 JMP ; 
5 15214 737 910000 001400 6$: BIT #1VC.RMER2I ; 
15222 901 BNE ; 
; i 4 104215 a EMT 215 
1 737 044416 : JSR PC, SECERR 
13 03 BR 8$ 
1 4 NOP 
15 1 O00 EMT CERR SUBROUTINE 
15 40 004 j PC.a(SP)+ CHECKS 
i 1524 8$: 
: J SAARAAAAAAAKAALARAARELELAAKARALAAAAERERATARAAAAAEEREAAARERERAAREEE 
SSTEST 15 IAE RECALIBRATE TEST 
Pi ia, ee 
‘3 "  $COPE :$C e 
40 NOP 
! 
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1 BR 1$ 
1 NOP 
1 EMT 
1 015504 JMP 
39 01 1$: 
0 1 177777 001 S 
1 177777 0014 S 
¢ 1 7 00141 1 
1 1545 :R2 POINTS TO PUT INDEX TABLE 
s ‘SETUP PUT INDEX TABLE 
54 4 
548 1 043016 :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
1 *GO TO 2$ IF NO ERROR 
1 SRETURN HERE IF ERROR 
1 SERROR # DEFINED BY PUT SUBROUTINE 
1 015504 6s :6O TO 6$ IF ERROR 
549 01 042462 2$: PC,GETSTS ‘SETUP FOR STATUS FETCH 
250 1 370 PC. TIMOUT ‘WAIT FOR GO TO RESET 
225 01 042546 PC.GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
1 3 760 TO 3$ IF NO ERR 
1 NOP ‘RETURN HERE IF ERROR 
1 EMT *ERROR # DEFINED BY GET SUBROUTINE 
i 015504 in JMP & “GO TO 6$ IF ERROR 
554 01 043564 JSR PC,PRIERR 360 CHECK FOR PRIMARY ERRORS 
1 05 BR 4$ : RROR 
1 40 NOP SRE RROR 
i oor PC,a(SP)+ ‘EOE : RROR CHECKS _— 
- 000137 015504 - JMP &$ 60 
22 1 737 054260 JSR Bc -RCLSTS :60 VERIEY RECALIBRATE OPERATION 
1 05 BR 5 760 TO 5$ IF RROR 
1 40 NOP *RETURN HERE IF ERROR 
1 EMT TERROR # D BY RCLSTS SUBROUTINE 
1 JSR PC,a(SP)+ *60 BACK ERROR CHECKS 
55 137 015504 - JMP 6$ 760 T 
1 737 044416 JSR PC, SECERR 260 C 
1 03 BR 6s 60 T 
1 4 NOP : 
15 EMT ZE ECERR SUBROUTINE 
135 004 JSR PC,a(SP)+ : RROR CHECKS 
360 1 6$: 
1 22 KAAAAAATAAAAAAARARTAAAAATAEAALARERARARRARARARARARAAARARTAARARAARREERE 
“*TEST 16 RECALIBRATE AT OFFSET 
* © RAAAAEAARAARAAARALARAREAARATEAEAAAAAAARARARAARARAAAEAARARAEARAAAREARAEE 
135 TST16: : 
155 :SCOPE CALL 
135 40 NOP “START OF TEST 
Haid Seas ggg a Mm al 
D4 = 
12894 13701 001466 TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 





ee - 


FCTNL PT1 
ALIBRATE AT 


REC 

015383 013737 
363 013350 737 

015544 050020 


z 


eeoeeecesoeesceoseseeees 


Ww 
a 
Ww 
MUA) 
es 


Wi 
xe 


1 
561 
5614 
i 
6 
5 
5642 
56 
5652 
54 
568 015 
569 
570 
015660 
571 
572 
015664 
573 
574 015670 
015674 
015676 
015 
15 
75 12 
76 Q1 
157 
15714 
1571 
15 
15 
8 
78 0157 
15 
15 
157 
1574 
1574 


a's 3 


041532 


015762 


001300 


MOV TIMES 
MOV WG StERIN 
JSR PC TSTPRP 
BR 1$ 
NOP 
EMT 
JMP 7% 
18: 
$1,PUTINX 
#200 ,PUTINX+1 
#OFFSET!GO,RM 
PC PUT 
2$ 
7$ 
23: 
3$: 
sSETUP GET INDEX T 
JSR PC,GETSTS 
sWAIT FOR COMMAND 9 COMPLETE 
JSR PC, TIMOUT 
JSR tea 
BR & 
NOP 
EMT 
JMP 7$ 
4$: 
JSR ata 
BR 5 
NOP 
EMT 
JSR PC,a(SP)+ 
- JMP 7$ 
JSR gone sts 
BR 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 7$ 
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OF FSET 








cs10 


is 
SS 
oS 
es 
~ 





:3D0_1_ITERATION 
23SET TEST NUMBER IN APT MAIL BOX 


ane te Meat oR FOR TEST 
ch oe EONTROLLE LER SELECT DEVICE 
KNOWLEDGE. IF UME NOT VALID 
VERIFY. PACK ACKNOWLED 
TO 1$ IF ” 


:RETURN HERE IF ERROR 
et A DEFINED BY TSTPRP SUBROUTINE 
£60 TO 7$ IF ERROR 


:SETUP PUT INDEX TABLE 

*SET TERMINATOR BYTE 
«SET RMCS1 OUTPUT BUFFER = OFFSET!GO 

:G0 WRITE RMCS1 VIA PUT SUBROUTINE 

:60 TO 2$ IF NO ERROR 

SRETURN HERE IF ERROR 

SERROR DEFINED BY PUT SUBROUTINE 

*60 TO 7$ IF ERROR 


sSETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 

sSET RACS1 gig! BUFFER = RECAL!GO 
RMCS1 VIA PUT SUBROUTINE 
IF NO ERROR 
RETURN HERE IF ERROR 
DEFINED BY PUT SUBROUTINE 
























om 













E 
GO TO 7$ IF ERROR 


E TO READ ALL REGISTERS 


:GO TO GETSTS SUBROUTINE 


9° 


:G0 TO TIMOUT SUBROUTINE 

K -SISTER(S) WITH GET SUBROUTINE 
ERROR 

F ERROR 


<4 





ete 





inet 






# DEFINED BY GET SUBROUTINE 
GO TO 7$ IF | 
360 one FOR PRIMARY ERRORS 
:G0 TO IF NOE 
:RETURN HERE IF 
sERROR # DEFINED BY PRIERR SUBROUTINE 
360 anche CHECKS 
:60 TO IF 
:60 vanity RECALIBRATE OPERATION 
:G0 TO IF 
sRETURN HERE 
sE # DEFI CLSTS SUBROUTINE 
:G0 BACK FOR CHECKS 
:GO TO 7$ IF 


SEQ 0102 


— “FT 


SSsasoas 
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BRATE AT OFFSET 
6$: 
737 044416 JSR PC »SECERR :GO CHECK FOR SECONDARY ERRORS 
0 BR 7 :60 TO 7$ IF NO ERROR 
4 NOP SRETURN HERE IF ERROR 
1 EMT TERROR # DEFINED BY SECERR SUBROUT INE 
004 ra JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECK 
J AAAAAARARAAEAAEAAARAEAEEERERARAAERAERERARERERARRRARRERERERERRAKKEE 
<STEST 17 DRIVE CLEAR TEST 
ee ee 
: SCOP 
240 NOP ‘START OF TEST 
01 706 001100 MOV STACK, SP 3 INITIALIZE STACK POINTER 
01 001276 MOV = UNIBUS ESS 
013701 001466 MOV TeTSuE =(R1) = DEVICE BEING TESTED 
012737 000017 001226 MOV Wir STESTN *:SET TEST NUMBER IN APT MAIL BOX 
737 041532 JSR PC ISTPRP :PREPARE DEVICE FOR TEST 
054130 .WORD 054130 ‘TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE == 
*RECALIBRATE IF ‘SkI OR ‘PIP’ IS SET 
‘VERIFY RECALIBRATI 
000404 BR 1$ *GO TO 1$ IF NO E 
000240 NOP *RETURN HERE IF ERROR 
104000 EMT SERROR # DEFINED BY TSTPRP SUBROUTINE 
000137 016232 i JMP 5S :GO0 TO 6$ IF ERROR 
012737 001420 MOV RMDAO 
12737 11 001412 MOV BDAC ATGO. RMCS10 
12737 1 1426 MOV 0 
12737 177777 001454 MOV 
7 900 001454 BIC Re Fol FOR PASS 2 ETCH 
0127 154 MOV :R POINTS. TO INDEX TABLE 
11 MOVB ARS LBT 
1127, MOVB 
1127 14 MOVB 
1127 MOVB 
1127 MOVB 
043016 JSR :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
03 BR *GO TO 2$ IF NO ERROR 
4 NOP “RETURN HERE IF ERROR 
EMT : SERROR # Y PUT SUBROUTINE 
4 BR 6S SESCAPE I 
fe: 042462 2$: JSR PC,GETSTS “SETUP FOR FETCH 
7 3 JSR PC; TIMOUT *WAIT FOR DRIVE CLEAR TO COMPLETE 
737 042546 “JSR PC,GET 260 READ REGISTER(S) WITH GET SUBROUTINE 
0 BR 3$ :GO TO 3$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY GET SUBROUTINE 
6 BR Ag “SKIP REMAINDER OF TEST 


uy 
= 
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RIVE CLEAR TEST 


















") 
606 0161 737 043564 JSR PC -PRIERR :G0 CHECK FOR PRIMARY ERRORS 
161 5 BR 4 :GO TO 4$ IF NO ERROR 
161 40 NOP SRETURN HERE IF ERROR 
161 1 EMT ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
161 904 JSR PC,a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
F 1617 137 016232 a JMP 5$ 760 TO 6$ IF ERROR 
re 1617 737 056022 JSR pC .DRVSTS 60 VERIEY DRIVE CLEAR 
01 5 BR 5 760 TO 5$ IF NO ERROR 
o1 “RETURN HERE IF ERROR 
1 1 EMT ERROR # DEFINED BY DRVSTS SUBROUTINE 
1 JSR PC,a(SP)+ _ $60 BACK FOR Face ERROR CHECKS 
ai 1 137 016232 - JMP A$ *GO TO 6$ IF ERROR 
610 01621 737 044416 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
1 3 BR 6% 760 TO 6$ IF NO ERROR 
1 40 NOP *RETURN HERE IF ERROR 
1 104 EMT SERROR # DEFINED BY SECERR SUBROUTINE 
1 004 JSR PC,a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
61) 1 6$: 
olg 22 RETAAAAAAAEAAAAEARAKREAAEREAEEAEERAARAAEAREEAREREREKEKARKAKEKAEEKAKAKAEE 
“RTEST 2 NOP TEST 
Fs Mee ee ee ee 
1 ST20: 
1 SCOPE :SCOPE CALL 
1 40 NOP “START OF TEST | 
1 1 001100 MOV #STACK, SP SINITIALIZE STACK POINTER 
16242 0137 1276 MOV SBASE =RO = UN S 
1 46 13701 001 MOV TSTQUE RI 7(R1) = DEVICE BEING TESTED 
en 16252 012737 001226 MOV #20, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
615 01 737 041532 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
B185ee 002130 . WORD 084] 0 “TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR C SELECT DEVICE 
; CLEAR OPERATION 
; IF VOLUME NOT VALID 
: Sk ra OR ‘PIP’ IS SET 
; TION 
BR 1$ : 
NOP | : ERROR 
EMT : BY TSTPRP .SUBROUTINE 
016462 JMP 60 RROR 2 
1545 MOVB SE 
154 MOVE “SET TE é 
141 MOV “SET RMC BUFFER = NOP!GO 
16 JSR 60 WRITE IA PUT SUBROUTINE 
: BR :60 TO 
NOP sRETURN HERE 
EMT “ERROR DEFINE PUT SUBROUTINE 
O16h6s JMP :60 TO IF 
46 2$: JSR PC,GETSTS ‘SETUP FOR STATUS FETCH 
042546 JSR PC,GET 760 READ REGISTER(S) WITH GET SUBROUTINE 
3 “GO TO 3$ IF NO ERROR 
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016462 
043564 


916462 
050562 


016462 
060210 


016462 
044416 


11 

1276 

1466 
21 


041532 


017006 


001226 


4$: 


5$: 


7$: 


$121 


7$ 

PC PRIERR 
4$ | 
PC,a(SP)+ 
7$ 

PC, CMPERRSTS 
ND TMSK 
DPE 

S$ 
PC,a(SP)+ 
7$ 


PC .STCDRVSTS 
6$ 


PC ,a(SP)+ 
7$ 


PC,SECERR 
7$ 


PC,a(SP)+ 


S@eGe® 
Bin 
55 
ome “HP oe 
mm 
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PRIERR SUBROUTINE 
RROR CHECKS 
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g 

me 
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25 
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SeGe Ge Ge Oe & 
z S8am 
ao - 
zx oS Fy 
= #108 
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N25 
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S NOT MASKED 





BSsz ae 
rh 





IF ERROR 
INED BY CMPERRSTS SUBROUTINE 
E ERROR CHECKS 


> +] ) 
ee as i | 


$ a | 


CHANGES IN DRIVE STATUS 
NO ERROR 


sRETURN HERE IF ERROR 
INED BY STCDRVSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 7$ IF ERROR 


260 CHECK FOR Bg aed ERRORS 
TO 7$_IF NO ERROR 

RETURN Py: E IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

:G0 BACK FOR MORE ERROR CHECKS 


& 
— 
© 
pi, 
wim" 


£ REAERERAEAAAARERAARAEREEAEAARAAAREEEARAEAEREEAEEREREREKEERREEERKEKE 


SSTEST 21 


OFFSET TEST 
<eERERERERERRERRES LEREREREREREEEREKERARERERKEERRARERRERERREEREEE ES 


#STACK, SP 


S$BASE 
TSTQUE ,R1 
#21, $TESTN 


O24 30 TPRP 


;SCOPE CALL 

:START OF TEST 

{INITIALIZE STACK POINTER 

ADDRES 

CRI) = DEVICE BEING TESTED 
3:SET TEST NUMBER IN APT MAIL BOX 
:PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER € SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE |. 
SRECALIBRATE IF SKI OR “PIP' IS SET 
VERIFY RECALIBRATION 

:G0 TO 1$ IF NO ERROR 

:RETURN HERE IF ERROR 

ZERROR # DEFINED BY TSTPRP SUBROUTINE 
60 TO 9$ IF ERROR 


SEQ 0105 
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GOAAQQOoanr wn 


SERSRESES 
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33 eed eet ed ed eed ceed oe) eed ceed ed ed 


SSERREES 
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OOOooOCoOOOo COCO OOOOOOCO 
ee cond cand ed en en end eld eed ed ed eed aed end eed ee aed ed eee oe eed eed ee ee eed ee eed cd wd cnt ed ceed eed ceed ee ee eed eed ed ed eed ed 
OQ 
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w= 
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Str 
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Row 
Uui~ 


017006 
000001 


1350 
177776 
000001 


100000 


a 


100000 


050562 


017006 
060210 


017006 
044416 


3$: 


4$: 


5$: 


7$: 





9$ 
PC,GETSTS 
PC, TIMOUT 


PC,GET 
3$ 


9$ 
PC ,PRIERR 
4$ 


PC,a(SP)+ 
9$ 






HATA, SGDDAT 
172 
PC,CMPERRSTS 
ie 
iad 


PC, STCDRVSTS 
8$ 


PC ,a(SP)+ 
9$ 


+ aaa 


#RACS1 ,PUTINX 
#200 ,PUTINX+1 


#OFFSET'GO,RMCS10 
PC PUT 


#*CATA, SBDDAT 


sSETUP PUT INDEX TABLE 


;SET TERMINATOR BYTE 


S S 
:GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 2$ IF NO ERROR 

*RETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 9$ IF ERROR 

“SETUP FOR STATUS FETCH 

:WAIT FOR GO TO RESET 


60 READ REGISTER(S) WITH GET SUBROUTINE 
760 TO 3$ IF NOE 

SRETURN HERE IF ERROR 

‘ERROR # DEFINED BY GET SUBROUTINE 

*60 TO 9$ IF ERROR 

360 CHECK FOR PRIMARY ERRORS 

:60 TO 4$ IF NO ERROR 

“RETURN HERE IF ERROR 

“ERROR # DEFINED BY PRIERR SUBROUTINE 
°G0 BACK FOR MORE ERROR CHECKS 

760 TO 9$ IF E 

OFFSET MODE ON?? 
;BAD DATA FOR TYPEOUT 
sGO0D DATA FOR TYPEOUT 
;WAS ATTENTION SET ?? 
[BAD DATA FOR TYPEOUT 


:GOOD DATA FOR TYPEOUT 







3CHECK ANY ERRORS NOT MASKED 
sMASK FOR RMER1 





7 MASK ‘3 RMER2 

260 TO IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

360 TO 9$ IF ERROR 





Y STCDRVSTS SUBROUTINE 
RROR CHECKS 





o 
@w 
=e 
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Mm 
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1 OUTPUT BUFFER = OFFSET!GO 


SEQ 0106 


dD 9 
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T21 OFFSET TEST 
017004 004736 JSR PC ,a(SP)+ G0 BACK FOR MORE ERROR CHECKS 
os 017006 9$: 





662  ;aa8 EAAEAAARARAEAAAARAAAAEAAAEERARREAREREREZEAEEE YE TRAERAARAAAAEAEARERERE 
SS TEST 22 GO/ATA TEST 
SSEAECAAEAAAEAAAAAAAEAAAALAAAALCAAARAAARARARARAHARARARAEAAKAARERKAEKREKEERE 
017 122 
17 $ 
Ar NOP ‘START OF TEST 
1 #STACK,SP SINITIALIZE STACK POINTER 
IBUS ESS 
TSTQUE ,R1 (R1) = DEVICE BEING TESTED 
—— ::SET TEST NUMBER IN APT MAIL BOX 
PC TSTPRP :PREPARE DEVICE FOR TEST 
: : TASK DESCRIPT 











OR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE |, 

ZRE IF SKI OR “PIP IS SET 
VERIFY. RECALIBRATION 
60 TO 1$ IF NO ERROR 








017042 000404 1$ 
o1 7044 000240 SRETURN HERE IF ERROR 
17046 104 TERROR # DEFINED BY TSTPRP SUBROUTINE 
at o17984 000137 017426 i 12$ "60 TO 12$ IF ERROR 
666 017054 112737 000000 001545 #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
01 112737 000 001546 #200,PUTINX+1 :SET TERMINATOR BYTE 
017070 01 130 15 001412 #OFFSET!GO,RMCS1 -SET RMCS1 OUTPUT BUFFER = OFFSET!GO 
17076 7 043016 PC PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
1710¢ 04 2$ :60 TO 2$ IF NO ERROR 
171 40 RETURN HERE IF ERROR 
17106 1 RROR DEFINED BY PUT SUBROUTINE 
17110 000137 017426 12$ | 4 TO 1 RROR 
667 017114 004737 042462 2$: PC,GETSTS ‘SETUP TO READ ALL REGISTERS 
$65 171 737 042546 PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
17126 04 3$ *60 TO 3$ IF NO ERROR 
171 4 ‘RETURN HERE IF ERROR 
171 ERROR # DEFI INED BY GET SUBROUTINE 
171 137 017426 12$ TO 12$ IF ERROR 
en 17136 37 100000 001350 3S: #ATA,RADSI :18 ATTENTION SET?? 
ie 17166 $ 1 001140 HATA AT *GO0D DATA FOR TYPEOUT 
171 13737 001 30 114 RMDSI AT :BAD DATA FOR TYPEOUT 
74 0171 7 114 #CATA, SBDDAT 
oe ta ed 4s 4 
8 1217 737 050562 PC. CAPERRSTS : Y ERRORS NOT MASKED 
1 : : 
1 $ : RROR 
1 40 : RROR 
3 : Y CMPERRSTS SUBROUTINE 
1 PC a(SP)+ : ERROR CHECKS 
1721 137 017426 128 ; 
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CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-24 SEQ 0108 
T22 GO/ATA TEST 
678 017216 5$ 
679 017 16 1545 $1,PUTINX 
1 154 -PUTINK#1 
017 1 00141 #NOP ' GO. RACS10 T BUFFER = NOP!GO 
01 16 PC PU RMCS1 VIA PUT SUBROUTINE 
O17 4b F NO ERROR 
1725 FINED BY PUT T 
6] 3 017426 12$ gs” gemma 
680 017256 6$ 
681 01 737 042546 PC,GET GO READ REGISTER(S) WITH GET SUBROUTINE 
of 04 7$ 0 
17266 1 # DEFINED BY GET SUBROUTINE 
O17 19 000137 017426 i 12$ 
rei $17 74 006737 043564 : JSR PC PRIERR : FOR PRIMARY ERRORS 
1730¢ 900405 BR 8$ : 
1736 40 NOP 
17304 104 EMT ; PRIERR SUBROUTINE 
17306 JSR PC.a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
ot 1 137 017426 JMP 760 TO 12$ IF ERROR 
684 Or 1 2737 100000 001350 8$: BIT #ATA.RADSI $18 ATTENTION RESET?? 
17324 013737 001350 001142 MOV RMDSI,$BDDAT § :BAD DATA FOR TYPEOUT 
esr 17348 908087 907140 7 ee cee cen tweet 
689 01 104246 . = 
691 01734é 737 050562 ; JSR PC,CMPERRSTS |; CHECK ANY ERRORS NOT MASKED 
17352 115760 .WORD NDTMSK “MASK FOR RMER1 
1 34 10 “WORD DPE [MASK FOR 
177 05 BR 10$ *60 TO 10$ 
1736C 40 NOP :RETURN 
nee ecR 4 éPC.a(SP)+* OT BACK 
a 366 $00 017426 “ni JMP 198 *GO TO 1 
693 01 737 060210 4 gil PC sshomests :G0 CHE 
1737 ot. BR 11$ "60 TO 11 
174 4 NOP . “RETURN 
Ho} TeR «PC .a(SP)+ ‘EO BAC 
sii 176 137 017426 a JMP 138 *60 TO 
695 01741 737 044416 " «JSR PC ,SECERR :G0 CHE 
17% 03 BR 1 *60 TO 
1% 40 NOP RETURN ERROR 
174 EMT “ERROR D BY SECERR SUBROUTINE 
17424 004 JSR PC,a(SP)+ *60 E ERROR CHECKS 
69 17426 12$: 
98 fF AAAAAAAAAAEAERRAAAAERAEEEAAEEARAEARAERAREKREERAERAERARAERAEARAERARARARREE 
“RTEST 23 WRITE ATA TEST 


2S EAEAAAERAAAAAAAARARAREREAEAEAELARERAAARERRERRAAARAARAAEREAAEREAREREE 


91 7426 13123: 
17426 000004 SCOPE :SCOPE CALL 


ee re Oe ee 
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158 WRITE ATA TEST 
Se 8 My asracease FAUT Sc eounrer 
174 ae MOV SBASE Re :RO = UNIBUS ADDRESS 
01744 1 MOV TSTOUE RI :(R1) = DEVICE BEING TESTED 
in 17 001226 MOV #23, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
700 017454 004737 041532 JSR PC. TSTPRP :PREPARE DEVICE FOR TEST 
917460 On 180 . WORD 056130 








sTASK DESCRIPTOR AS FOLLOWS: 
SCLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
:RECALIBRATE IF SKI OR “PIP IS SET 
VERIFY RECAL IBRAT ION 


















7462 000404 BR 1$ :60 TO 1$ IF NO ERROR 
rice ti $0 :RETURN # DEFINED BY tSTPRP SUBROUT INE 
- 7470 000137 017772 re 9$ 760 TO 9$ IF ERROR 
702 017474 112737 000000 001545 $1, PUTINX : SETUP PUT INDEX TABLE 
7308 115 7 000 001546 PUTINX¢1 :SET TERMINATOR BYTE 
751 O12 7 15 00141 POFFSET GO. RMCS10 “SET RMCS1 OUTPUT BUFFER = OFFSET!GO 
7316 7 043016 PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
75 04 :6O0 TO 2$ IF NOE 
7524 40 ‘RETURN HERE IF ERROR 
7526 1 7E FINED BY PUT SUBROUTINE 
75 1 0177 9$ 760 TO 9$ IF ERROR 
703 0175 7 042 2$ PC.GETSTS ‘SETUP TO READ ALL REGISTERS 
78 7540 004737 042546 JSR PC, GET :60 REGISTER(S) WITH GET SUBROUTINE 
7544 04 BR 3$ *60 T IF NO ERROR 
7 40 NOP SRETURN HERE IF ERROR 
732 - EMT : ERROR # DEF INED BY GET SUBROUTINE 
75 0000 001350 3$: BIT gl TENTION Ser? 
MOV ‘BAD DATA FOR TYPEOUT 
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:G00D DATA FOR TYPEOUT 


fe = ATTENTION BIT 
sCLEAR SIGN EXTENSION 


sPUT_RMAS BIT IN OUTPUT BUF 
reeaTak INDEX IN TABLE 
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BY GET SUBROUTINE 
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WRITE ATA TEST 
4 77 
722 017 737 
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043564 


b000%4 


041532 


020364 


Oezu62 


001226 


CL PRIERR 


PC,a(SP)+ 
#ATA,RMDSI 






RMDSI,$BDDAT 
#*CATA,SBDDAT 
SGDDAT 


247 


eae acaia 


0 
9$ 


PC ,a(SP)+ 


9 


:G0 CHECK A PRIMARY ERRORS 

760 TO 7$ IF NO ERROR 

SRETURN HERE IF ERROR 

3ERROR # DEFINED BY PRIERR SUBROUTINE 
CK FOR MORE ERROR CHECKS 





:60 TO 9$ 

21S ATTENTION RESET?? 

‘BAD DATA FOR TYPEOUT 

:GO00D DATA FOR TYPEOUT 


CHECK ANY ERRORS NOT MASKED 
sMASK FOR RMER1 





RE IF ERROR 
SERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 


SRARRRAAERRERERERREREEREREREREREREREEREREREEREEERRERREREERERE ERS 


SSTEST 24 


SS RARAAERRAAARAAEARAAAERRERERAEAAEAREAERERERERAEKEREREERKRAKERRREREKE 


S124: 





q. ©. qj 
SeRESEEes 4SEe 


ERROR/ATA T 


#STACK 





TSTQUE ,R1 
poe STESTN 


Ostiz0 


‘10 
PC ,GETSTS 





SCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 
= UNIBUS ESS 


RO = 
:(R1) = DEVICE BEING TESTED 
33SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR FOLL 

3¢ Bi yl DEVICE 
AR OPERATI 


LEAR CONTROLLER 
:VERIFY CONTROLLER RATION 
:PACK ACKNOWLEDGE F VOLUME NOT VALID 
:VERIFY PACK ACKNOWL EDGE 

CALIBRATE IF SkI 
:VERIFY.RECALIBRATION 
60 TO 1$ IF NOE 
;RETURN HERE IF ERROR 
ZERROR # DEFINED BY TSTPRP SUBROUTINE 
60 TO 10$ IF ERROR 


:SETUP PUT INDEX TABLE 

“SET TERMINATOR eyTe 
“SET RMCS1 OUTPUT BUFFER = 

:60 Go wire RMCS1 VIA PUT SUBROUTINE 












OR *PIP’’ IS SET 








OF FSET!GO 





me DEFINED BY PUT SUBROUTINE 
;60 TO 1 ERROR 
SETUP TO R ALL REGISTERS 


SEQ 0110 
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JSR GET 760 R REGISTER(S) WITH GET SUBROUTINE 
OOS {60.1 ro 38 IF 
ear cERROR & M0 lester te SUBROUT INE 
JMP 10$ :G0 TO tos IF ERROR 
3$: BIT #ATA,RMDS! 21S ATA SET?? 
BNE YES! ! 
MOV :BAD DATA FOR TYPEOUT 
MOV :GOOD DATA FOR TYPEOUT 
- EMT 
MOVE ;SETUP PUT INDEX TABLE 
MOVB TERMINATOR BYTE 
MOV RMERI aoureut BUFFER = UNS 
JSR A R1 VIA PUT SUBROUTINE 
BR 5$ IF NO ERROR 
NOP RE IF ERROR 
EMT DEF INED BY PUT SUBROUTINE 
- JMP ERROR 
MOVE S1,PUTINX ;SETUP PUT INDEX TABLE 
MOVE PUTINX41 :SET T TERAINATOR 8 BYTE 
MOV 160,RMCS10 PUT BUFFER = NOP!GO 
JSR ‘8p "pit ants VIA PUT SUBROUTINE 
BR :60 TO 6$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT sERROR DEFINED BY PUT SUBROUTINE 
a JMP 10$ *GO TO 10$ IF ERROR 
JSR PC,GET : REGISTER(S) WITH GET SUBROUTINE 
BR : 0 ERROR 
NOP : 
EMT : 
JMP $ 
7$: BIT : 
BNE : 
MOV : OR TYPEOUT 
MOV : A FOR TYPEOUT 
BIC 
- EMT 
JSR PC,STCDRVSTS HANGES IN DRIVE STATUS 
BR 9$ E 
NOP ERROR 
EMT Y STCDRVSTS SUBROUTINE 
JSR Pe .a(SP)+ ERROR CHECKS 
- JMP 1 
JSR PC SECERR 
BR 1 E 
NOP ERROR 
EMT D BY SECERR SUBROUTINE 
‘an JSR PC.a(SP)+ E ERROR CHECKS 


fF AAAAAAAAAAAARARAEAARRERELETEAAAAERAERARAARARARAAREAEARAAARRRAEREAREE 


SEQ 0111 
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T25 PROGRAM INTERRUPT TEST | 






























s*TEST 25 PROGRAM INTERRUPT TEST } 
ee 
0 : 
SCOPE : SCOPE CALL 
40 NOP ‘START OF TEST 
1 1300 MOV #STACK s INITIALIZE STACK POINTER 
7% 1 1276 MOV SBASE [RO = UNIBUS ADDRESS 
O13 1 1666 V TSTaue R1 :(R1) = DEVICE BEING TESTED 
766 0 012737 001226 MOV #25, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
767 020412 7 041532 JSR PC. TSTPRP : PREPARE DEVICE FOR TEST 
020416 007430 . WORD 054130 : TASK DESCRIP OR AS FOL OwS : 
CLEAR EONTROLLER SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
ACKNOWLE VOLUME NOT VALID 
: VERIFY PACK ACKNOWL EDGE 
SRECALIBRATE IF "SKI" OR ‘PIP’’ IS SET 
;VERIFY RECALIBRATION 
02042 000406 BR 1$ 0 1$ IF NOE 
02 40 NOP SRETURN HERE IF ERROR 
104 EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
on a5 h 000137 021054 “ JMP 16$ :GO0 TO 16$ IF ERROR 
aC : 
769 02C 113702 2 MOVB R2 :R2 = INTERRUPT ADDRESS 
0 020436 042709 1774 . BIC ai R2 -:CLEAR SIGN EXTENSION 
771 02C 1 MOV 3 SAVE HANDLER ADDRESS 
07 i 16205 MOV VE HANDLER PRIORITY 
1 MOV SURITE HANDLER S 
77% MOV *PRIORITY FOR THIS TEST 
775 MOVB °R3 = INTERRUPT LEVEL 
076 BIC [CLEAR SIGN EXTENSION 
SWAB 
078 bEC :DECREMENT INTERRUPT LEVEL 
CLR 
1 2s: BIC 
NOP 
7 MOV 
MOV 
5 MOV 
MOV 
MOV 
MOVB 
MOVB 
79 JSR pC .PUT ‘ 
BR 
NOP 
are oi 
138 3$: 
79 MOVB $1,PUTINX INDEX 
MOVB #200,PUTINX#1 : NATOR 
MOV #OFFSET!GO! IE RAC ET RMC I jBurreR = OFFSET!GO!IE 
JSR PC T : RMCS1 
BR 4 F NO 
NOP E IF 











5 





000137 


RGR ENTS SeTeEe 
iS 





021054 


042546 


021054 
043564 


021054 


020724 


042546 


021054 
043564 


021054 
050562 


021054 
060210 


EMT 
JMP 
4$: 
JSR 
JSR 
MOV 
RTI 
5$: DEC 
BPL 
: TIMEOUT BEFORE 
RTI 
6$: 
JSR 
BR 
NOP 
EMT 
JMP 
7$: 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 
8$: 
EMT 
BR 
9$: CMP 
MOV 
RTI 
10$: 
JSR 
BR 
NOP 
EAT 
JMP 
11$: 
Bre 
NOP 
EMT 
She 
12$: 
SR 
13$: 
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T PROGRAM INTERRUPT TEST 


16$ 

PC,TI T 
reagents 
R3 

5$ 


INTERRUPT 
PC GET 
7$ 


16$ 
* eta 


PC,a(SP)+ 
16$ 


251 

2$ 

(SP) +, (SP)+ 
#108, (SP) 
PC,GET 

118 

16$ 

PC ,PRIERR 


PC.a(SP)+ 
168 


PC 


CMPERRSTS 
ND TMSK 





138 


PC,a(SP)+ 
16§ 


PC ,STCDRVSTS 


ERROR D Aa BY PUT SUBROUTINE 
:GO 70 16$ IF ERROR 


sWAIT FOR COMPLETION 
ear" TO READ ALL REGISTERS 
sR35_= GROSS T 

sDROP CP 

s TIMEOUT THE 





sRAISE CP PRIORITY 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO0 TO 7$ IF NO ERROR 
sRETURN HER 














CHECKS 


sADJUST STACK 
: RETURN ADDRESS 
sRAISE CP PRIORITY 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
;G0 TO 11$ IF NO ERROR 


FOR PRIMARY ERRORS 
F ERROR 





F 
D BY PRIERR SUBROUTINE 
ERROR CHECKS 


RROR 
Y CMPERRSTS SUBROUTINE 
a CHECKS 


HANGES IN DRIVE STATUS 


SEQ 0115 


K 9 
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T25 PROGRAM INTERRUPT TEST 


SEQ 0114 











1012 5 BR 14$ 
101 NOP 
1016 1 EMT 
1 JSR PC ,a(SP)+ | 
. 0 137 021054 ie JMP 1 E | 
B50 031 737 044416 "(JSR PC ,SECERR :G0 CHECK FOR SECONDARY ERRORS | 
9 10 05 BR 158 60 To 5$ IF NO ERROR 
0 193 1 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
0 1 JSR PC,a(SP)+ 760 BACK FOR ERROR CHECKS 
52 137 021054 sis JMP 168 :GO TO 16$ IF ERROR 
6 0 1 010412 "(MOV R4, (R2) 
7 021050 010562 000002 MOV R5.2(R2) 
B 021054 16$: 
asp J RAAEAAAARAERHAEREAARAAEEAAREAARRERERAAERREAREREREREEKREREREEEKERKERE 


SRTEST 26 INHIBIT INTERRUPT TEST 


SEEEREARAAAAAEEAERAARAAEAEEAERERAAERERERRERERERAEKREERARAAARKEEKKKKE 


+8126 
SCOPE :SCOPE CALL 
NOP sSTART OF TEST 
001100 MOV #STACK P 3 INITIALIZE STACK POINTER 
= UNIBUS ADDRESS 


1276 
1 Sore 466 TST rerave Rt S(R1) = DEVICE BEING TESTED 
7 000026 001226 MOV W306 STESTN ::SET TEST NUMBER IN APT MAIL BOX 


041532 PC TSTPRP sPREPARE DEVICE FOR TEST 
054 DESCRIPTOR AS FOLLOWS: 
LEAR CONTROLLER © SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
*PACK VOLUME NOT VALID 


A IF 

;VERIFY PACK ACKNOWL EDGE 

IBRATE IF (sk OR "PIP" 1S SET 
D ERR 


ooo 
wa 
S 





S 
& 


co 

Ww 

N—< 
St 
owed oon 
SR 
oS 
=~ 
oN 
ee «j 
S% 
So 













1$ 


— 
=—Socce= 
oN 
S990 

Wi Aono 


021422 


1272 
400 


1414 


000002 


438° 


@ 
ey 
Le 


3uzzz 


13$ 


a 
sth AS 





: SAVE HANDLER ADDRESS 
HANDLER PRIORITY 
ER ADDRESS AND 
THIS TEST 
LEVEL 





177437 2$: 
021350 


wand eon) werd weet wh ur S caath ccs cna seed cord ume we} esd coed od aad sedi cond cut ond 





Rees 
~J ~J 
PwamOuwAE 
SOO DOO e 
wah 
= 
eogeagae 
aro o 
Bus 
ae 
ss ¢ 
ot 
wa 
w “Oe 
age” Yess? 
Bs ay 
ay ae 


SP) 
#°CPR7 , (SP) 
#68,~ (SP) 33PUSH #6$ ON STACK 


3 
<- 


oooo°oco 
wad od een, cmd com) moh ed od ed 
SFESS | 
aS oooo 
wed ese) eood 
-_ 
asses 
a3 


L 
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126 INHIBIT INTERRUPT TEST 
0 02121 MOV R3,-(SP) : :PUSH R3 sons 
831 3 12 O12748 021276 MOV #4$,-(SP) : PUSH #4$ 
85¢ 1220 JSR a ETUP TO R ip? ALL “REGISTERS 
854 021224 1545 MOVB TINX TuP PuT | E 
1 i 5 1 46 MOVB soar NX+1 io T TERMINAT *ayT 
1240 01 141 MOV AOFFSET 0! IE, Rat ET RMCS1 OUTPUT BUFFER = OFFSET!GO!IE 
021 7 16 JSR PC PUT :60 al ee tas VIA PUT SUBROUTINE 
021 04 BR 760 F NO ERROR 
oi 1 O99 ORT fg F INE he I PUT SUBROUTINE 
al 8 60 137 021422 om JMP 13$ 760 TO O $ 
1 004737 04337 : JSR TIMOUT :WAIT FOR GO = 0 
B29 051570 O03705 90020 MOV 9305 -R *R3 = GROSS TIMER 
838 1274 Oh003 RTI 
1276 005303 4$: DEC 
Be) 021800 1003876 a 
508 021 2 112737 001545 MOVB 
021310 112737 000 001546 MOVB 
021316 01 030 001412 MOV = NOP 
4 4 0047 7 043016 JSR RMCS1 VIA PUT SUBROUTINE 
1 04 BR 5$ IF 
021 000240 NOP ERETURN HERE IF ERROR 
0 1 104 ERY FINED BY PUT SUBROUTINE 
1 000137 021422 JMP ‘60 TO TO 13$ IF ERROR 
0 1 012703 000205 5$: MOV #205,R3 
5 021 $8003 RTI 
021350 012712 021364 : MOV #9$, (R2) 
aR 095508 S$: 0 ODeeCORS 
4 1 576 BPL 7$ 
0 1 00000 RTI :NO ERROR 
iL 1 : 6 8$: CMP (SP)+, (SP)+ sADJUST STACK 
1 6 9$: CMP (SP) +, (SP)+ SADJUST STACK 
7% 021 12716 021374 | MOV #10$, (SP) 
¢3 000002 Paty ATI 
are 1374 737 042546 —— PC.GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
14 04 BR 11$ *GO TO 11$ IF NO ERROR 
14 4 NOP “RETURN HERE IF ERROR 
14 EMT *ERROR # DEFINED BY GET SUBROUTINE 
1406 000137 021422 JMP 13$ *60 TO 13$ IF ERROR 
878 02141 | 11S: 
se 1412 104252 EMT 252 
1414 12$: MOV R46, (R2) 
0314] bee 000002 MOV 5; 2(R2) 
142 13$: 
£ RAAEAAAAAAAERAEAEAAARAREEAEAAAREAEAEARAEARKRAAEAERARERARAERARRARARRERERE 
SSTEST 27 RETURN TO CENTERLINE TEST 
“<p ala tcl i clan hana ania lala ita iinet 
021422 18127 


CO et 


a 9 
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127 RETURN TO CENTERLINE TEST 
14 2 
14 0 
4 1100 #STACK, SP INTER 
14 o1 7 1276 SBASE 
14 13701 001 TSTOUE R1 TESTED 
ass 1442 012737 001226 #27 ,STESTN R IN APT MAIL BOX 
1450 041532 PC. TSTPRP :PREPARE DEVICE FOR TEST 
oe aee 007430 054130 “TASK DESCRIPTOR AS FOLLOWS: 
‘CLEAR CONTROLLER & SELECT DEVICE 
i VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
“VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF SKI OR ‘PIP’ IS SET 
‘VERIFY RECALIBRATI 
021456 000404 BR 1$ 360 TO 1$ IF NO ERROR 
021 000240 NOP TURN HERE IF ERROR 
1 104 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
. 14 000137 021744 i JMP 9$ :GO0 TO 9$ IF ERROR 
re 1470 112737 001545 MOVB S1,PUTINX ;SETUP PUT INDEX TABLE 
031476 112737 200 001546 MOVE #200, PUTINX+1 :SET TERMINATOR BYTE 
1504 012737 17 001412 MOV #RTC'GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = RTC!GO 
0 151 0047 7 16 JSR PC PUT ; S1 VIA PUT SUBROUTINE ‘ 
151 04 BR : NO ERROR 
15 00 40 NOP ; ERROR 
1522 1 EMT *ERROR DEFINED BY PUT SUBROUTINE 
1524 137 021744 JMP 9$ 760 TO 9$ IF ERROR 
9 0215 7 042462 2$: JSR PC.GETSTS * SETUP STATUS FETCH 
0215 7 042370 JSR PC, TIMOUT “WAIT FOR RECAL TO COMPLETE 
2 021540 737 042546 JSR PC,GET :60 RE GISTER(S) WITH GET SUBROUTINE 
021544 04 BR 3$ 360 F NO 
15 40 NOP =RE IF ERROR 
1 1 EMT “ERROR # FINED BY GET SUBROUTINE 
~ 137 021744 ia JMP 9$ 760 TO 9$ IF ERROR 
$92 1 737 043564 JSR PC -PRIERR :60 CHECK IMARY ERRORS 
1 05 BR 4 :60 TO 
1 4 NOP RETURN 
1 1 EMT “ERROR Y PRIERR SUBROUTINE 
1 JSR ,a(SP)+ :G0 BAC ERROR CHECKS 
1 137 021744 JMP :60 TO 9$ I 
1576 7 1 001350 4$: BIT »RMDS! ZOFFSET MODE 
1 411 BEQ sYES!! 
1 7 1140 CLR SGDDAT *GOOD DATA FOR TYPEOUT 
1 13737 00135 1142 MOV RMDSI,SBDDAT  :BAD DATA FOR TYPEOUT 
g 177776 001142 BIC #°COM. SBDDAT 
7 100000 001350 SS: BIT #ATA,RMDS! sWAS ATTENTION SET 2? 
1 1 S 1350 114 MOV SBDDAT § :BAD DATA FOR TYPEOUT 
1 7 77 114 BIC A. SBDDA 
O1 f ? 00000 00114 MOV SGDDAT :G00D DATA FOR TYPEOUT 
1 6$: 
1 004737 050562 JSR PC,CMPERRSTS |; CHECK ANY ERRORS NOT MASKED 








SLT EE LL ———————————————_E_—_EO—O—e—eV—_e—e 
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RETURN TO CENTERLINE TEST 
021670 1157 .WORD NDTMSK sMASK FOR RMER , 
9 167 1 “WORD DPE “MASK F R2 
167 BR 5 [60 TO 7$ IF NO ERROR 
167 40 ‘RETURN HERE IF ERROR 
1 EMT cE # DEFINED BY CMPERRSTS SUBROUTINE 
170 J PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
afi 1704 137 021744 - JMP 9$ [60 TO 9$ IF ERROR 
910 1310 7 060210 JSR PC,STCDRVSTS | ;GO CHECK FOR CHANGES IN DRIVE STATUS 
021714 BR ag "GO TO 8$ IF NO ERROR 
02171 40 SRETURN HERE IF ERROR 
1 EMT sERROR # DEFINED BY STCDRVSTS SUBROUTINE 
1 004 JSR PC,a(SP)+ "60 BACK FOR MORE ERROR CHECKS 
- 4 137 021744 - = JMP 9$ 760 TO 9$ IF ERROR 
912 021 737 044416 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
0 1 03 BR 9$ :G60 TO 9$ IF NO ERR 
1 40 NOP SRETURN HERE IF ERROR 
0 1740 1 EMT SERROR # DEFINED BY SECERR SUBROUTINE 
1742 004 JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
a5 021744 9$: 
91 5 se RARAEAEAAEAAAAAAKAAARAREAAEEAEREREERARARERERERKKAKEKRKAKKAKRKAKEKAKRKAKAKKAKRKAAE 
“RTEST 30 READ IN PRESET TEST 
+, RARAEARAAAKEAARAARAARAARAAEAEAEREKAKAARERARERARKKEKRKRKAKKEKRKKKKRKKAKKKKKKKAKE 
1744 ST30: | 
1744 SCOPE :SCOPE CALL 
0 1766 NOP “START OF TEST 
0217 1100 MOV #STACK, SP ‘INITIALIZE STACK POINTER 
021754 1276 MOV SBASE :RO = UNI 
021760 1466 MOV TSTOUE R1 | 3(R1) = DEVICE BEING TESTED 
- 021764 001226 MOV #30, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
319 021772 737 041532 : JSR PC TSTPRP :PREPARE DEVICE FOR TEST 
021776 0541 .WORD 054130 : FOL 
: ONTROLLER & SELECT DEVICE 
: F VOLUME NOT VALID ‘ 
VERIFY PACK ACKNOWLEDGE = 
: TE OR 'PIP’’ IS SET 
: ; TION | 
f, BR 1$ : 
NOP *RETURN HERE IF ERROR 
EMT *ERROR # DEFINED BY TSTPRP SUBROUTINE 
022326 is JMP 10$ *60 TO 10$ IF ERROR 
o1 mov :R2 POINTS TO INDEX TABLE 
1 ROVE 
1 MOVB 
1 MOVB 
1 MOVB 
i MOV a= 1 REDCO 
1 MOV BPA IGIECI!NCI!SSE1 0FD,AMOFO 
MOV #RIP'GO,RMCS10 
JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 






: RNDAOQ 


©0000 
wos 


BESSEES ERE Sess ae 


Oo 
Sw 


957 


OOoOooooooooooooo 
=> 
= 
NWN on 


A= rE Ue 


=ONLSN= 
Gas 
BARASIR 


B 10 
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READ IN PRESET TEST 


0 


: 


0 


SROROMOROMOFOROE 





E 
04 
4 
1 
1 
7 
7 


O 
N 


wend 
of = 
Wo 


=S —_— —_ 
—_ —_ —_ 
Soon Wa 


ach 


001372 


001372 
001140 


050562 


022326 
060210 


022326 
044416 


001142 


001142 


3$: 


4$: 


5$: 


8$: 


10$: 


2s 
10$ 
PC,GETSTS 
PC ,TIMOUT 


PC,GET 
3$ 


10$ 
PC .PRIERR 
4$ 


AS a(SP)+ 


; $_IF RROR 
;sRETURN HERE IF ERROR 
EFINED BY PUT SUBROUTINE 


E 
:GO CHECK FOR PRIMARY ERRORS 
GO TO 4$ IF NO ERROR 

sRETURN HERE IF ERROR 

ERROR # D BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:GO0 TO 10$ one 


RMOF I SBDDAT “1S RMOF RESET?? 
#AC<FAT GIECISHCTISSEI!OFD>, DAT 





PC, CMPERRSTS 
ND TMSK 

DPE 

8$ 


PC,a(SP)+ 
10$ 


PC. STCORVSTS 
9$ 


PC,a(SP)+ 
10$ 


PC 
10$ 


PC,a(SP)+ 


SECERR 


*GOOD DATA FOR TYPEOUT 
:1S RMDA RESET?? 
“VES! ! 


“BAD DATA FOR TYPEOUT 
*GO0OD DATA FOR TYPEOUT 


z18 RMDC RESET?? 
“BAD DATA FOR TYPEOUT 
*GO0D DATA FOR TYPEOUT 


C 


oa 


CK ANY ERRORS NOT MASKED 
RMER1 


a: 


R2 

NO ERROR 

F ERROR 

INED BY CMPERRSTS SUBROUTINE 
— CHECKS 






e 2 
maT 
m 
35 
xX%e 
PR 
(Tl ome 
rm" 


staat 
e8Sc 
a3 






sso 8 
Beno = 
ox 2 
Re oo = 
BR = 

toma 

bs | 


Sete Sete tee 
ma 
< 
3 
o 
Ba 
mao 
wer “ve 


23S 99% 
Sse 3 


Se @e @se Be @ 
amas 
om 
ese 

t om | 

r+ | 


SEQ 0118 


Cc 10 
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T READ IN PRESET TEST 


928 { RAAAAARAAAAAAAAERARAAEAEEAEEEAEAARAEREREEEAREREERAAERRERERKKRKKKKREKEE 
tSTEST 31 RMDC CLEAR OFFSET TEST 
ma aie aes eanammaebaa ane 
" §cop :SCOPE CAL 
NOP = START 
MOV SBASE :RO = UNIBU 
MOV ret aue R1 7(R1) = DEVICE BEING TESTED 
MOV #31,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
JSR PC TSTPRP :PREPARE DEVICE FOR TEST 
-WORD 05413 :TASK DESCRIPTOR AS 





FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
K ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
CALIBRATE IF "'SkI'’ OR "PIP" IS SET 
: VERIFY RECALIBRATION 
TO 1$ ERROR 











E L 
: OF TEST 
MOV #STACK,SP s INITIALIZE STACK POINTER 






0 ; 2 000404 BR 1$ 60 IF 
0 40 NOP *RETURN HERE IF ERROR 
0 EMT ERROR DEFINED BY TSTPRP SUBROUTINE 
0 000137 022644 i JMP aS 760 TO 8$ IF ERROR 
308 5 000000 001545 MOVB § #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
0 000200 001546 MOVB #200 PUTINX*1 SET TERMINATOR BYTE 
000015 001412 MOV fOFFSET GO.RACSIO SET RMCS1 OUTPUT BUFFER = OFFSET!GO 
043016 JSR PC PU WRITE RMCS1 VIA PUT SUBROUTINE 
BR 2$° 2$ IF NOE 
NOP SRETURN HERE IF ERROR 
EMT SERROR DEFINED BY PUT SUBROUTINE 
022644 MP re} *60 T RROP 
964 0 042462 2$: JSR PC,GETSTS ‘SETUP FOR STATUS 
966 042546 JSR PC,GET :60 GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 3$° | NO ERROR 
NOP RETURN HERE IF ERROR 
EMT ERROR § DEFINED BY GET SUBROUTINE 
, 022644 i JMP 83 O 8$ IF ERROR 
368 043564 JSR PC PRIERR fee CHECK FOR PRIMARY ERRORS 
BR 4$ *GO TO 4$ IF NOE 
NOP *RETURN HERE IF E 
EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ *60 BACK FOR MORE 
022644 JMP 8$ *60 TO 8$ IF ERROR 
1 001350 4$: BIT #0M.RMOSI SOF FSET ON?? 
ieee ie 114 | MOV RMDSI,$BDDAT § :BAD DATA FOR TYPEOUT 
114 BIC #°COM. SBDDAT 
MOV #0R.SGDDAT *GCOD DATA FOR TYPEOUT 
EMT é 
BR sSKIP REST OF TEST 





5$: 
34 001545 MOVB § #RMDC.PUTINX ;:SETUP PUT INDEX TABLE 
001546 MOVB #200,PUTINX+1 :SET TERMINATOR BYTE 
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RMDC CLEAR OFFSET TEST 


| 3 
979 74 


022644 
022644 
cs 
654 
660 
022664 
$8 exer 
959676 
| 
7 
991 71 
99 71 
99 71 
$3 
zs 
By - 
: 


550 012737 
a 
1 


= sy 
eevee 
GA 
WANN 


pte te 
12702 
oe 

04 

40 
11 
i 
ie 


320 


003016 


022644 
042546 


4 
1 


001350 
177776 
001740 


001446 


001350 


001142 
001142 


001226 


MOV 
JSR 
BR 


NOP 
EMT 
JMP 


JSR 


#0.,.RMDCO 


cso! 





D 10 
SEQ 0120 


} 


RMDC OUTPUT BUFFER = 0 


2 
: 
.. 
“ 
a 
; 


RROR 
PUT SUBROUTINE 


m 
33 

4 
BR 
7 
m 
ge 

~< 


ISTER(S) WITH GET SUBROUTINE 
NO ERROR 
ERROR 
ye AY GET SUBROUTINE 
DID OFFSET MODE RESET?? 
sBAD DATA FOR TYPEOUT 


:GOOD DATA FOR TYPEOUT 





m 

a 

So 

xe 
sme FT? SED oe FTE 
wn hrm "NG 


SEEAREAAEAEAREAAAAAREAAEAEEEAERAEAAAEAAERARARARAERARARREAEKRAERAERERKEKAREEKKE 


LLEGAL FUNCTION TEST 


I 
SREEAEREAAKEREAERAAAEEAEEAAEAAAAERAEARAARAEKRAARARAERAERKERAREKREEREEREE 


SSTEST 32 
18132: 


1$: 


2$: 





3$: 
sSET DIAGNOSTIC 
sCYLINDER 





#STACK 
TSTQUE ,R1 
pee _STESTN 
PC, TSTPRP 


046000 
1$ ; 


13$ 


PC.GETSTS 
WNOP ,R2 


PC,CNICLR 
3$ 


13$ 





sSTART OF TEST 

s INITIALIZE STACK POINTER 

2RO_ = UNIBUS ADDRESS 

3(R1) = DEVICE BEING TESTED 

:sSET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 
+ TASK DESCRIPTOR AS FOLLOWS: 
L CONTROLLER & SELECT DEVICE 
60 TO 1$ IF NO ERROR 
RETURN HERE IF ERROR 
SERROR # DEFINED BY TSTPRP SUBROUTINE 
:60 TO 13$ IF ERROR 


sSETUP FOR STATUS 


260 oO te oO epg CLEAR 
NO ERROR 


‘RETURN HERE IF ERROR 
s ERROR R DEFINED BY SUBROUTINE 
360 TO 13$ IF ERROR | 





MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 






PC PUT 
&S 





ARMAR1 ,PUTINX 
#200 ,PUTINX+1 
4DMD ,RAMRI0 


SETUP PUT INDEX TABLE 

3SE T Hin geld. BYTE 
T RMART OUTPUT BUFFER = DMD 
WRITE RMMR1 VIA PUT SUBROUTINE 

60 TO 4$_IF NO ERROR 

;RETURN HERE IF ERROR 








ee ee ere ee ee 
ST TN EL TT ST eR 


E 10 
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ILLEGAL FUNCTION TEST 


T 


Booceo S290 
S38 Boo 
SSSSSSSSSSIS  SSSSYSSSSSSSSSSSSSSSe BSSssesss 


eed eed cemt ccuch ad coud ond ad ancd 


Ooooeoeoo 
WSO 


CWVONAULWA—© 


cece aed comh edd ceca comb cond cok ed ood wood aad aed eed od od od 


ae 
SSP 


774 000137 


RSFSLSSENRSVKSS 


oe, cua wed ered ommd seed ond wed eed od eh ced od od aed 


2 tt BOC 
NALVDES 


UPROAR! 


& 


3 7 
112737 
12737 






hp ee “I~ 
NWA NNN 


oF 


NN 








4$: 


5$: 


EMT 
MP 








ERROR DEFINED BY PUT SUBROUTINE 












13$ 760 TO 13$ IF ERROR 
#RMAR1.PUTINX ;SETUP PUT INDEX TABLE 
#200, PUTINX*1 iSET TERMINATOR BYTE 
#DMD MUR! MOC ,RMMR10 -SET RMMR1 OUTPUT BUFFER = DMD!MUR!MOC 
PC, :G0 WRITE RMMR1 VIA PUT SUBROUTINE 
:GO TO 5$ IF NO ERROR 
“RETURN HERE IF ERROR 


13$ 





sERROR DEFINED BY PUT SUBROUTINE 
:G0 TO 15$ IF ERROR 


SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING atta 





Tae ee sasas3"~ 





a ej. «.f & «G& 
$24 32S5u ¢ 


©. ©. FFF 
SSS 





oPUTINX 
#200 ,PUTINX+1 


#PAKACK!GO,RMCS 
PC PUT 





PC.a(SP)+ 
"$6 


:SETUP PUT INDEX TABL 
“SET TERMINATOR BYTE 
0 -SET RMCS1 OUTPUT BUFFER = PAKACK!GO 
360 WRITE RCS 1 VIA PUT SUBROUTINE 





FUNCTION CODE IN BUFFER 
BUS wry 


DISK ADDRESS 
at" ADDRESS 


TF 
REGISTER INDEX TABLE 





ASS 
ae 

S25 

J 

xan 

=~ nin nin 


38 
ae 


" 
% 
3 


TO R 
REGISTER(S) WITH GET SUBROUTINE 


~27 “4 
S32 
ont ie 
Bom 

(Ti en 


32 2 
Be 
=S 
Sz 

z 

3 


m 
m PAG 






: 
m 
mer 


PRIERR SUBROUTINE 
RROR CHECKS 


oe 

© 
in 
Qmne 


SEQ 0121 


| 
| 
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97000 114 

1 114 
114 

0011 1142 


~C 


ns st a 
OOoooooocoo 
BSOVSARUIASS 

ssssssses 
ind adnan Ladd Lal Lada adit od of 
SESS RVR RSs 


neat od ae ee ed he 


SSERRREREE 
>: 


7. 
: = 


5c 


OROROF 
WN = 


el ced ced ced ceed ceed aed ceed eed ceed cd 


Fr 


staal 
Dee eoeSeSSNaRE 


ed nh SO oud ond 


: 


NUNNO 


112737 


307 : 


2 


022722 


: 


041532 


024154 
000000 


052466 


024154 


000024 


001226 


001545 


12$: 


13$: 










RMER 
#*CilF, 
4 


' (RS. R2 
138 : 
2$ 





F 10 
FNCDTB(R2) , $GDDAT 
#*CILF ,SGDDAT 

AT 
DAT. $BDDAT 


coe eee) o SGDDAT 
#ERR 


A. SBDDAT 
DAT 


sBAD DATA FOR TYPEOUT 


:IS_ILF STATUS CORRECT? 
sYES!: 


sWAS ,AN ERROR DETECTED?? 
yes. - ATA SHOULD BE ON 
sGET DRIVE’S ATTENTION 
‘testi STATUS OK?? 


260 aol FUNCTION CODE 





sVES ! 
:TEST NEXT FUNCTION 


©  REAEEAAAAERAAAAERAAERALARAAAAAARRARAARAERARARAERAARAARAEREREREREEE 


“*TEST 


SSEAEREAAAAARARARARARAEAEEAAAAAAARAAARAAAEAAAEAARRAERAREREEERAEEEKREKRE 


18133: 


3$: 








#STACK 
R1 
TeTOUe Rt 
PC, TSTPRP 
046000 


1$ 





13$ 


PC,GETSTS 
#NOP , R2 


“% CNTCLR 


13$ ~ 






sSTART OF TEST 
s INITIALIZE STACK POINTER 
BUS ADDRESS 
(RI) = DEVICE GEING TESTED 
33SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 
$y DESCRIPTOR FOLLOWS: 
gt war SELECT DEVICE 





0 ERROR 
TERROR # DEFINED BY TSTPRP SUBROUTINE 
G0 TO 13S IF ERROR 

: SETUP fs: STATUS 


260 60 Issye fe: CLEAR 


: RETURN HERE IF ERROR 
; ERROR R DEFINED BY SUBROUTINE 
760 TO 13$ IF ERROR - 





2 SET Fale MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
#RAAR 1 , PUT INX 


sSETUP PUT INDEX TABLE 


GET ENTRY FROM FUNCTION CODE TABLE 


SEQ 0122 


SEQ 0123 


0 
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Guesees BuoseLEs Ba2§ ag 


ee ®e@ 26 ee %6@ ®e ¢@ ¢e%6 *6 Se *e *e 6 Fe * oh 


wn 





PUTINX+1 
RMAR10 


serteerttlitics. ac, 2 §, 


>w & bee 
Pe eet ttt ta Sa SESEE 





FNCDTB(R2) ,SGDDA 





-?* 


#200 
#DMD 





SeigSkt Sootadet 


sVOLUME VALID IS LEFT RESET FOR THE TEST 





3 a & 
rie Re = 
= =e = 
oo Seo = 

oO wo-wo wt 
S 8 sae x i. 
A — DA a) wv 
3 = 3 oS 
~ g3m KCARR ~~ 
~ toad — 
oe Sk aed pe S  mediceeeh sack sel eel sel, mel eel ood 
_ - ee - SQqQQerereceerees 


~ TIVOLTNONOTOYOVOvOoOrToOoNe SESE 
Lod ed | | 2.6 OC — 
APPARASSSL > 09% 9.0000 OR! RAR . BESS SRERE 
vartrdtrtrdrdrdyrd 


FN NINN NNININININNIIN 


33 SSSMSSSSS ETT aS Sn ss 


SO ee EF SF FF FF FF Ee rer = -—- 
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INVAL 
1097 777 (00114 #*CIVC,SGDDAT 
1098 4 114 ,SBDDAT ;=B8AD DATA FOR TYPEOUT 
1 114 #*CIVC, SBDDAT 
1100 001140 00114 AT, SBDDAT 1S IVC STATUS CORRECT? 
11 & se. 
1108 1140 10$ FNCDTB(R2) , SGDDAT 
1105 4 870508 apres kR,RMDSI sWAS AN ERROR DETECTED?? 
1108 40 100000 11 ‘YES = ATA SHOULD BE ON 
11 41 1140 11S: 
11 41 1 114 :GET DRIVE’S ATTENTION 
1110 0241 00114 
N12 41 1140 00114 18 ATA STATUS OK?? 
1113 0241 nite}. 
1114 0241 
N16 413 20 2 12$: :60 TO NEXT FUNCTION CODE 
1117 024146 1 YES |! 
1118 4156 00018 023506 *TEST NEXT FUNCTION 
14 4154 13$: 
1199 ~a”68°6 6—[~[Vamen eee 


s*TEST 34 INVALID ADDRESS ERROR T 


°2 Tandab unhciiatat Ph sebeeneteaeteadaenee cenenenntesentenscescats 


















8 4154 : 
4154 s 
0 4156 40 ‘START OF TEST 
0241 1 901100 #STACK ‘INITIALIZE STACK POINTER 
0 4164 1 1276 ; UNIBUS S$ 
0 41 13701 001 Tereue 2(R1) = DEVICE BEING TESTED 
12 4174 012737 000034 001226 #34,STESTN eos TEST NUMBER IN APT MAIL BOX 
1123 024202 737 041532 PC. TSTPRP ; DEVICE FOR TEST 
STE $2000 046000 eT SCRIPTOR AS FOLLOWS: 
3CL ONTROLLER & SELECT DEVICE 
1$ ‘6 F ERROK 
:R ERROR 
: FINED BY TSTPRP SUBROUTINE 
024744 os 13$ : 13$ IF ERROR 
; PC,GETSTS :SETUP FOR STATUS 
Ob3008 a #NOP,,R2 
052466 : BC .CNTCLR 360 60 ISSUE CONTROLLER CLEAR 
SOE TURN HERE IF ERROR 
ERROR R DEFINED BY SUBROUTINE 
024744 ri 13$ *60 TO 13$ IF ERROR 
sEFLiNtR STS MOE MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
: MOVE § #RMMRI,PUTINX ;SETUP PUT INDEX TABLE "\ 





#200,PUTINX+1 SET TERMINATOR BYTE 


Deena . 


SEQ 0125 


I 10 
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RMBO F 
INVALID ADDRESS ERROR TEST 


Gren 


C 
T 





BUFFER = PAKACK!GO 


SUBROUT INE 





IN BUFFER 





GET SUBROUTINE 







1 OUTPUT BUFFER = DMD! MUR! MOC 


VIA PUT SUBROUTINE 
VIA PUT SUBROUTINE 


T BUFFER = DMD 
ar PUT SUBROUTINE 
OR 





PRIMARY ERRORS 






FINED BY PUT SUBROUTINE 












'GO,RACS1 


a as 
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a 5S a 
” %. & = 
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ee %e a te te &e ee ce +0 a %e Fe te Peteteteatete tee eee cece 
= 
we 
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ws, 
coy 
us 





- geSe secanglabeses g a : 
“2 ASP = © 
Ese 2 sis. 2 et nie AS og OF ye 





MOV 
JSR 
BR 

NOP 
EMT 
JMP 


eebistit scponaneSEEEEBEsnat SsSkt Ss 


;SET VOLUME VALID BEF 


4$ 
5$: 
6$: 
7$ 
8$ 





Tt Toro of Two © w 

e Se95 £ mx xR 

4 S353 & -—2 83 

$ 888s & Ss 8s 
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12 q gt 001436 
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mH PORNesom RRRRRRRENR RARE 
Se Ea 3 3s 
ee t cuedh suedh, ned, mech, dh sed eek ol seh ol oh ne a 
- oe - Soooooeerecececee 


aon ar 
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$2 0047 
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- RRs be ed vet Be et De oe eh HD ve AD 4 w 0 
-— meee ee ee ee ee ce -— 
- Ce me ee Teo mo 








a oo SY 


ee ee ee ee ee eee eee 












ert 


5OO0c 
SSR 


se 
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ANNO 





ots 


~ 2 C3 Coe 
Sia 
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coed 


m< 
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aon & ae & Se 


041532 


025530 


006000 


052466 


925530 


001226 













@w 
Spent 
o 


a58S"ac8 


PC,a(SP)+ 
FNCDTB(R2 
#*CIAE 






i 


) scopat 


3$ 
hay Ae SGDDAT 
RR ,RADSI 


SEQ 0126 


Hy Py Fh 
INED. By OPRIERR SUBROUT INE 
$60 G0 BACK FOR PORE ERROR CHECKS 
GET ENTRY FROM FUNCTION CODE TABLE 
BAD DATA FOR TYPEOUT 


| 

| 

| 

| 

| 

| 
31S IAE STATUS CORRECT? 
SYES!! 


s WAS ,AN ERROR DETECTED?? 
yes. - ATA SHOULD BE ON 
GET DRIVE’S ATTENTION 
IS ATA STATUS 0K?? 
sVES!! 


260 TO ‘asad FUNCTION CODE 
DONE ?? 





sVES !! 


:TEST NEXT FUNCTION 


—_—t uweK=—aAs.:CmCmCm: 


WRITE LOCK ERROR T 


© RAAAAAAAEAAERAAAAAEAEAAAAAARAARAAREAARAARAEAAARAERAEAAARERAERAAERE 


12$: 

13$: 

SSTEST 35 

TST35: 
SCOPE 
NOP 
MOV 
MOY 
MOV 
MOV 
JSR 
WORD 
BR 
NOP 
EAT 
JMP 

1$: 
JSR 
MOV 

23: 
JSR 
BR 
NOP 
EMT 
JMP 

3$: 





aST 


"ho 
Hi wae 





solsa™ 


1$ 


13$ 
moses 


a Oereee 


138 


sSCOPE CALL 

:$ OF TEST 

3 INITIALIZE STACK POINTER 
F(RV) = DEVICE BEING TESTED 


| 
sa 




















FOLLOWS: 

SELECT DEVICE 
‘2 RROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
:60 TO 15S IF ERROR 





SETUP FOR STATUS 







issue CONTROLLER CLEAR 
0 If NO ERROR 
IF ERROR 


360 

sRET 

3€ R DEFINED BY SUBROUTINE 
:G0 TO 15$ IF ERROR 
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1 
1199 :SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
1198 YLINDER, AND DI TIC WRITE LOCK 
1199 025040 112737 46 001545 MOVE § #RMMRI,PUTINX ;SETUP PUT INDEX TABLE 
112737 1546 MOVB #200, PUTINX+1 ;SET TERMINATOR BYTE 
12737 1 001436 MOV 0 “SET RMMR 
7 2 JSR 760 WRI 
BR +60 TO 4$ IF 
0 NOP RE IF ERROR 
1 EMT ‘ERROR DEFINED BY PUT SUBROUTINE 
7 137 025530 JMP 13$ :GO0 TO 13$ IF ERROR 
1200 9 $100 4$: 
1201 025100 112737 4 001545 MOVB § #RMMR1,PUTINX ;SETUP PUT INDEX TABLE 
106 11 001546 MOVB #200, PUT INX#1 ‘SET TERMINATOR BYT 
114 012737 001411 001436 MOV #DMD !MUR'MOC ! MuP REAR IO «SET RMMR1 OUTPUT BUFFER = DMD!MUR!MOC !MwP 
31 7 063016 JSR pC .PUT 'GO WRITE RMMR1 VIA PUT SUBROUTINE 
1 BR 760 TO 5$ IF NO ERROR 
51 40 RETURN HERE IF ERROR 
5132 1 EMT DEF INED BY PUT SUBROUTINE 
5134 000137 025530 Mp 13$ ‘60 O70 188 IF ERROR 
1 5140 5$: 
1 :SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 
1 5140 000000 MOVB : SETUP PUT INDEX TABLE 
125146 MOVB PUTI mel SET TERMINATOR BYTE 
5154 MOV MPMKACK 60 $10 SET RMCS1 OUTPUT BUFFER = PAKACK!GO 
5162 JSR :60 ware macs VIA PUT SUBROUTINE 
51 BR 760 TO NO ERROR 
51 NOP ; MERE IF ERROR 
517 EMT : FINED BY PUT SUBROUTINE 
174 JMP : IF ERROR 
; 5 6$: oes 
1 TION CODE IN BUFFER 
1 1 MOV ADDRESS 
1 ) 3 MOV COUNT 
1 ) CLR SK ADDRESS 
¥ CLR LINDER ADDRESS 
1 o1 MOV EGISTER INDEX TABLE 
1 1 MOVB 
1 11 MOVB 
1 1 MOVB 
1 1 MOVB 
1 0 1 MOVB 
7 1 MOVB 
1 ISR : REGISTER(S) WITH PUT SUBROUTINE 
BR : 7$ IF NO ERROR 
531 NOP “RETURN HERE IF ERROR 
1 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
iY. 1 025530 JMP 13$ *GO TO 13$ IF ERROR 
133 7 7$: JSR PC, TIMOUT “WAIT FOR GO TO RESET 
1225 025 737 042546 JSR PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
04 BR 8$ °60 TO 8$ IF NO ERROR 
240 NOP “RETURN HERE IF ERROR 


SE@ 0127 


ee EE 


L 10 
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135 WRITE LOCK ERROR TEST | 
104 EMT ZERROR # DEFINED BY GET SUBROUTINE 
000137 025530 os JMP 13$ 760 TO 13$ IF ERROR | 
1388 737 043564 JSR PC -PRIERR :G0 CHECK FOR PRIMARY ERRORS | 
4 BR :60 TO 9$ IF NO ERROR | 
4 SRETURN HERE IF ERROR | 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE | 
0 JSR PC,a(SP)+ [60 BACK _FOR MORE ERROR CHECKS 
1 5530 JMP “GO TO 13$ IF ERROR 
16057 001140 98 mov = -FNCDTBCR2) gSQn0at 3GET ENTRY FROM FUNCTION CODE TABLE 
1 13737 001 352 114 MO R11,$BDDAT ;BAD DATA FOR TYPEOUT 
1231 7 1 114 BIC #*CULE.SBDDAT 
1 5414 7 001140 00114 C DAT,SBDDAT ;1S WLE STATUS CORRECT? 
1 5422 14 $ sYES!! 
1 1 07000 1140 10$: MOV FNCDTB(R2) , SGDDAT 
3036 if 970000 oO 1sso gir RR,RMDS1 ZWAS AN ERROR DETECTED?? 
1 5446 1 1140 BIS ‘YES = ATA SHOULD BE ON | 
1240 025454 04 zi Oooee 1140 11$ BIC | 
1241 3462 13737 001350 1162 MOV :GET DRIVES ATTENTION | 
1 4¢ 54 042737 077777 00114 BIC | 
1243 025476 023737 001140 001142 CMP 31S ATA STATUS 0K?? 
1244 025504 1402 BEQ 1 ; YES! ! 
1245 025 1042 EMT 2 , 
1246 02551 07 BR 13$ 
1247 02551 702 000002 12$: ADD #2 -R2 :G0 TO NEXT FUNCTION CODE 
1 48 0 3316 022702 000076 CMP #ilF 6,R2 *DONE?? 
1249 025522 10340 BLO 1 YES !! 
1250 025524 000137 025022 JMP 23 *TEST NEXT FUNCTION 
31 55 13$: 
1 36 FE RAAAARREREERAAARAREEERRERERERARERERERERERERRRERREEREREREEERERED 
*eTEST 
° » SAAAEAAAAAAAAAAAARARAAAAEEAARARAAAAAEAAAAAKAARAAEEAERREEREEREREREE 
5530 TST36: 
5530 OPE : SCOPE 
0 5532 240 NOP “START OF TEST 
0255 1 06 001100 MOV #STACK,SP ‘INITIALIZE STACK POINTER 
5540 013700 001276 MOV $BASE 7RO = ESS 
5544 013701 0014 MOV TSTOUE R1 =(R1) = DEVICE BEING TESTED 
1354 5550 012737 000036 001226 MOV #36, $TESTN ‘SET TEST NUMBER IN APT MAIL BOX 
1255 0255 737 041532 JSR PC .TSTPRP sPREPARE DEVICE FOR TEST 
p5ee28 $02 430 WORD OS4130 FOLL 





: TASK DESCRIPTOR OwS : 
CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
IF "SKI" OR “PIP IS SET 
IBRATION 
NO ERROR 
ERROR 


Y TSTPRP SUBROUTINE 








POPPIN 
WVU 
ww e 
ss 
S238 
WSES 
$328 
—4 
comed 
je 
Se Ge @ 
e+] 
mm 
35 
r 4 
mr 


026062 9$ :60 TO 


#10 
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T ERROR ABORT T 
1336 025576 1$: 
1098 195576 004737 06 Boer eee CARES TS ee eta eG eerets SUBROUTINE 
1360 1 12702 Mittin - ONOE RS R = FUNCTION CODE 
1261 ¢ 004737 052466 : PC, CNTCLR :G0 0 ISSUE Co CONTROLLER CLEAR 
0 1 3$ RROR 
ais Sates EE es earn sumer 
0 9 000137 026062 ‘“ 9$ :GO TO 9$ IF ERROR 
1588 125624 112737 14 001545 : R1,PUTINX ;SETUP PUT INDEX TABLE 
) 11 1546 #20 RDUTINX?1 ‘SET - TERMINATOR BYTE 
0 012737 001426 #UNS .RMER10 *SET RMER1 OUTPUT BUFFER = UNS 
0 7 043016 : *GO WRITE RMER1 VIA PUT SUBROUTINE 
12565 04 *60 TO 4$ IF NO ERROR 
963634 900840 . CERROR DEFINED BY Pur SUBROUTINE 
wal 5660 000137 026062 om *60 TO OS Ir IF ERROR 
1265 ( S664 12737. 000001 001412 v 
1266 025672 050237 00141 :WRITE FUNCTION CODE IN BUFFER 
1267 C 5676 12737 104372 001416 MOV “DUMMY BUS ADDRESS 
1268 025 12737 1 001414 MOV “DUMMY WORD COUNT 
1269 025712 012737 000000 001420 MOV “CLEAR DISK ADDRESS 
1270 025 012737 001446 MOV “CLEAR CYLINDER ADDRESS 
1271 025 012737 01 1444 MOV ‘ ORMAT 
1272 025 01 1545 MOV SWRITE REGISTER INDEX TABLE 
1273 025740 11 MOVB 
i 5744 1127 MOVB 
1 730 1 0000 MOVB 
1 754 1127 MOVB 
1 760 1127 MOVB 
1 55764 1127 MOVB 
1 5 11271 0002 MOVB 
1 577 737 043016 JSR :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
2600 02 BR 760 T F NO ERROR 
60 240 NOP *RETURN HERE IF ERROR 
roa 936008 a ZERROR # DEFINED BY PUT SUBROUTINE 
1 : 
1386 :WAIT FOR COMMAND TO COMPLETE 
: JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 
1 JSR PC.GET 360 READ vee WITH GET SUBROUTINE 
NOP :RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY GET SUBROUTINE 
si JMP 9$ 9$ 
; JSR PC -PRIERR 
BR 
NOP OR 
EMT PRIERR SUBROUTINE 
JSR pc .@(SP)+ RROR CHECKS 


w~@”™ 


SEQ 0129 | 
i 


-_—- = 


oe ERROR ABORT T 
1see 
1289 936080 
: 1 | 54 
1338 
1 
1 


1 
1 
1 
1 


7 
0 
10 py ete 
14 





581 
on 

wg 
: 004737 
1303 8 ¢ 112737 
ie 





ood amd end ord eed ced ad eed cook axed ond aad 


Gass Ss 


i: 


041532 


026522 


042462 


001226 
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7$: 
8$: 
ADD #2 -R2 sADVANCE FUNCTION CODE 
CMP #iLF 6.R2 “DONE ALL COMMANDS 
BHIS 2 “NO !! 
9$: 
EE ——<« 
*STEST T 
Lame nn ennnnenenenenqaartnannenennanensentacnseanenenans 
T G 
sSCOPE CALL 
‘START OF TEST 
#STACK,SP INITIALIZE STACK POINTER 
= UNIBUS ADDRESS 
-_TSTQUE,R1 S(R1) = DEVICE BEING TESTED 
#37,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP - :PREPARE DEVICE FOR TEST 
046000 “TASK DESCRIPTOR AS FOLL 
= CLEAR CONTROLLER SELECT DEVICE 
«18 :GO0 TO 1$ IF 
NOP “RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY TSTPRP SUBROUTINE 
eS JMP 11$ [60 TO 11$ IF ERROR 





sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
PC ,GETSTS 260 





















































ms JSR TO GETSTS SUBROUTINE 
MOVB $$ (#RMMRI.PUTINX ;SETUP PUT INDEX TABLE 
MOVE §$ #200,PUTINX+1 SET TERMINATOR BYTE 
MOV ADMD. RMMR10 :SET RMAR PUT BUFFER = DMD 
JSR ; :GO WRITE RMMR1 VIA PUT SUBROUTINE 
BR :GO TO 3$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT ‘ERROR DEFINED BY PUT SUBROUTINE 
- JMP 18... *GO TO 11$ IF ERROR 
MOVB ore’ »PUTINX 
‘MOV =: #200, PUTINX+1 
MOV #DMD | MUR! MOC, SET ET Sur PUT BUFFER = DMD!MUR!MOC 
JSR PC PUT 6p RAR? VIA 1a Pur SUBROUT INE 
38 4$ : IF NO 
NOP : HERE PE 
EMT : DEFINE BY PUT SUBROUTINE 
‘s JMP 11$ s 118 IF E€ 
MOVB S1,PUTINX ;SETUP PUT INDE 
MOVB PUTINX+1 :SET TERMINATOR BYTE 
MOV RPACACK!60, rmcsi0 - SET OUTPUT BUFFER = PAKACK!GO 
JSR 60 wri Te RMC A PUT SUBROUTINE 
BR *GO TO 5$ IF NO ERROR 
‘RETURN HERE IF ERROR | 
“ERROR DEF INE BY PUT SUBROUTINE 
- 11$ “GO TO 11$ IF ERROR 


SEQ 0150 


B11 
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137 RMR TEST 
1308 026274 737 042546 JSR PC,GET 260 READ REGISTER(S) WITH GET SUBROUTINE 
04 BR 65 :GO TO 6$ IF NO ERROR 
5 690 EMT SERROR # DEFINED BY GET SUBROUTINE 
137 026522 JMP 11$ 760 TO 11$ IF ERROR 
1340 ™ 
1344 11 S 24 001545 MOVB sSETUP PUT INDEX TABLE 
§ 1 , 1401 borage MOV eioen WO ee pt 4 T RMMR1 OUTPUT BUFFER = DMD!MUR!MOC !DBEN 
a s o o 
, 004 825016 JSR =te0 WRITE Ran (fi PUT SUBROUTINE 
0 04 BR 0 7$ IF NO ERROR 
5 194000 EMT :RETURW HERE IF ERROR SUBROUTINE 
oni 000137 026522 ms 118 :60 TO 11$ IF ERROR 
1348 112737 900000 001545 WRMCS1,PUTINX  ;SETUP PUT INDE 
112737 200 001546 430 iPUTINK® 1 “SET TERM 
012737 000001 001412 MOV #NOP ! 10 :SET RMCS BUFFER = NOP!GO 
0 : 737 043016 PC PUT 7GO WRITE RMCS1 VIA PUT SUBROUTINE 
04 BR 8$ :60 TO 8$ IF NO ERROR 
6404 40 NOP . *RETURN HERE IF ERROR 
06 1 EMT ‘ERROR DEFINED GY PUT SUBROUTINE 
ac 10 000137 026522 a JMP 11$ :G60 TO 11$ IF ERROR 
134 6414 112737 001545 MOVB = #RMCS1 -PUTINX 
026422 112737 000 001546 MOVB = #2 PUTINX+T 
026430 012737 000015 001412 SOFFSET! GO 
026 : 737 043016 JSR PUT 
eer tee = oc, a 
" 036480 000137 026522 _ JMP 11$ 760 TO 11$ IF ERROR 
131$ § 5454 004737 042546 . JSR PC GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
126460 04 BR 10$ 10$ IF NO E 
12646 00 40 NOP SRETURN HERE RROR 
126464 1 EMT *ERROR » DEFINED BY GET SUBROUTINE 
rsrq OoenSs 000137 026522 “i JMP 11$ *GO TO 11$ IF ERROR 
1 3 ; 547 240 "(NOP 
1320 026474 000004 001352 31S RMR SET 2? 
1321 O2¢ 02 1007 BNE 11 YES ! 
1 2 26 16737 ? 900004 114 ‘ ERBECTED STATUS 
1323 026512 01 1352 00114 *RECEIVED STATUS 
1324 92652 ba530 7 
5 02¢ 11$: 
1 J RAAAAAAARAARAERAAAEKRAEERERERAEREKRERERAERREREARRAEEEERERKEEERERERER 
SaTEST 40 PARITY ERROR TEST 
5 rt 
5 é Sc :SCOPE CALL 
5 40 :S OF TEST 
1100 MOV STACK Pe s INITIALIZE STACK POINTER 
1 1276 MOV = UNIBUS ADDRESS 
13701 001466 MOV retesr R1 Ra = DEVICE BEING TESTED 


2 TT SE ———— incl 


C 1 
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Y ERROR TEST 


026542 


1359 8 6550 


6554 


SERSE ve 
SOQOSOSSODS SOOO OOOOOOOOOD OOOO 
OO OOP Vi ae 
AC > 


ee ee ee ee ee ee ee es 





0127357 


046000 


Sess 
NNN e a 
WWOSoo WSs 

™N IW RX 


WIAA 


a 
N 


a 


000040 001226 


041532 


026742 
000001 
052466 


026742 


042546 


026742 
000010 


a 


001100 


001352 


1140 
1142 


1$: 
2$: 


3$: 


6$: 
7$ 


MOV 


JSR 
- WORD 


TEST 41 


‘$141: 


SCOPE 


MOV 


#40, STESTN 


PC. TSTPRP 
046000 


1$ 


7$ 

#1,R2 
PC,CNTCLR 
3$ 


7$ 








1) ,R3 
R3 -RAC -RAes20 


#RMCS2,(R 
#RMDA 
te 


PC PUT 
4$ 


PC GET 
5$ 


7$ 
ga oRMERTI 
woeat SGDDAT 





: 


SERARAAAAARAKAERAEEARAERAEAAEAAEAARAAAERARKRERARRARAARERERRERAREREE 


#CUNTSK..R3 
#PAT,R 


rae th 


eel 


37SET TEST NUMBER IN APT MAIL BOX 
sPREPARE DEVICE FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS: 
ale = ee SELECT DEVICE 
60 TO IF NO ERROR 
;RETURN HERE IF ERROR 
;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 7$ IF ERROR 
sR2 = DATA PATTERN 
‘6 B aols Se Se een CLEAR 
NO ERROR 
RETURN A HERE IF ERROR 
sERROR # DEFINED BY CNTCLR SUBROUTINE 
:G0 TO 7$ IF ERROR 


sSETUP RMCS2 


sOUTPUT VALUE TO RMCS2 
sVALUE T A 
sWRITE REGISTER OUTPUT INDEX 


260 WRITE yt ye WITH PUT SUBROUTINE 
TO 4$ IF NO ERROR 


RETURN HERE IF ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 
260 R 


REGISTER(S) WITH GET SUBROUTINE 
260 TO 5$_IF NO ERROR 

sRETURN HERE IF ERROR 

SERROR # DEFINED BY GET SUBROUTINE 
360 TO 7$ IF ERROR 


3 ae pe ERROR SET ?? 
STATUS 


‘EXPECTED 
SRECEIVED STATUS 
:DATA PATTERN 





sADVANCE DATA_PATTERN 
sBRANCH IF NOT DONE 


ILLEGAL REGISTER T 


EST 
SEEEAAAAREEAAAAARAALREREEEARERARARERARAARARARAARAERARARARAAEARAEEAAERE 


#STACK,SP 


s>SCOPE CALL 
:START OF TEST 
s INITIALIZE STACK POINTER 





SEQ 0132 


75 ai 


ed ed eed eed eed eed eed eed = wd 


N25 


ee ee ee ee ee ee ere 


w 


Di 
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ILLEGAL REGISTER TEST 


eres Ha 
1 


aon ponte UA 





<Oxt xt 
~ 
= 
~~ 


1276 
a3 166 


041532 


027270 


042462 
000004 


et 66 


052466 
027202 
050774 


027270 
042546 


027202 
043564 


001226 


TSTQUE ,R1 

#41, $TESTN 
PC. TSTPRP 

046000 


1S: 


4 c 
#PR6, ERRVEC+2 
R2 


2$: 
PC.CNTCLR 
3$ 


3$: 


4$: 





PC,GET 
5$ 


5$: 
Gh -PRIEM 


PC,a(SP)+ 








5 
RMER ee »SBDDAT 
#*CILR, - $BDDAT 

DAT. SBDDAT 
oe 


STMPO 
>THE FOLLOWING CODING FOR HANDLE RH 






é 


7S: 


760 TO 1 
:GO READ REGISTER(S) WITH GET SUBROUTINE 
NO ERROR 


RH70 
:RH 70 REGISTER oo IS EITHER 22 OR 
ADD 





:RO_ = UNIBUS ADDRESS 
3(R1) = DEVICE. BEING TESTED 


:3SET TEST NUMBER IN APT MAIL BOX 


3 PREPARE et: FOR he 

: TASK DESCRIPTOR FOLLOWS: 

; CLEAR a ge SELECT DEVICE 
TO 1$ IF NOE 

*RETURN Py): IF 


ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
760 TO 10$ IF ERROR 


:RS = EXPECTED STATUS 
: SETUP FOR STATU 
H ERRVEC ON STA 
PUSH E RRVEC 2 ON STACK 
sSETUP FOR BUS FIMEOU 


:R2 = REGISTER INDEX 


G0 oO 158Ne te ahee CLEAR 
NO ERROR 


RETURN HERE IF ERROR 
RROR NUMBER DEFINED BY SUBROUTINE 
TO 7$ IF ERROR 
= REGISTER ADDRESS 


sCLEAR THE REGISTER 





360 SELECT DEVICE 
NO E 


TO 4$ IF 
RETURN Py 3 IF ERROR 
SERROR # DEFINED BY DEVSEL SUBROUTINE 
OS IF ERROR 


:60 TO 5$_IF 

sRETURN HERE IF ERROR 

SERROR # DEFINED BY GET SUBROUT INE 
:60 TO 7$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:G0 TO 6$ IF NO ERROR 
;RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
3G0 BACK FOR MORE ERROR CHECKS 

760 TO 7$ IF ERROR 





:GET DRIVE'S ILR STATUS 
31$ ILR STATUS 0K?? 
*SAVE R2 FOR ERROR DATA 


32 
T INCREMENT THE REGISTER ADDRESS 


SEQ 01335 





1$: 





NOU 


wed ed med cand eee - wh ened ees 8 ned 
PEPPER 
oat cen} ned <8 end 


= 





BR 
NOP 
EMT 
JMP 
MOV 
MOV 
MOV 
MOV 
MOVB 
MOVE 
MOVB 
MOVE 
JSR 
BR 
NOP 





E 11 











saecee 

sSTART OF TEST 

3 INITIALIZE STACK POINTER 

<R IBUS 

(RD) = DEVICE BEING TESTED 
TION 


:SET_TEST NUMBER IN APT MAIL BOX 


STACK ,SP 






#1 ,STIMES 


#42, 


STESTN $3 


{PREPARE DEVICE FOR TEST 
3 TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
SPACK ACKNOWLEDGE IF VOLUME NOT VALID 
SVERIFY PACK ACKNOWLEDGE |. 
SRECALIBRATE IF "SKI" OR ‘PIP" IS SET 
IBRATION 











054130 


CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-50 SEQ 0 
141 ILLEGAL REGISTER TEST 

1 4 7: CMP #50,R2 :TIME TO CHECK THE EXTEND ADDRESS REG ? 
139 1 BHI [BRANCH IF NOT 
139% 1 BLO BRANCH IF ALREADY SET UP 
1 1¢ MOV #ILR RS XCEPT ILR HAPPEND 
1 MOV sa 6! A17,RMCS1 nb} *SET EXT NDED ADDRESS BITS | 
1 MOV :SET nIg 2 Re TO F 22 REGISTERS 
1 MOV Hatt: R3 ‘1S THIS mio ? 
1 BIC Hi R3 iLEFT ONLY BIT 1 
cme wBITOIBITT RS; “BIT 0 Mi Bit Ser a THE SAME TIME ? 
1 MOV #50.R2 : OTHERWISE SET ADDRESS TO 50 
14 8$: cmp #74,R2 L REGISTERS CHECKED ? 
1 BLOS 108° BRANG 
16 BR 2$ *NEXT REGISTER 
1407 9$: CMP (SP)+, (SP)+ 
1 10$: 

MOV (SP) +, ERRVEC+2 :POP STACK INTO ERRVEC+2 
1409 MOV (SP)+,ERRVEC - ;;:POP STACK INTO ERRVEC 
1411 { AAAAAAARAAAEAARARAAARAREEAERAAEAERAERAEEAREREEEREREREKEREKRERRRERE 

CSTEST 42 SEEK FIRST CYLINDER 
iaeeee eo entnaenerenoennnenyrmnenecnennsnninenonasesoeoonnnnos 


es 
ERROR 

D BY TSTPRP SUBROUTINE 
RROR 


10S 
#0,,RMDCO 





STRACK ; AS RA. = 0 


Setar IN BUFFER 
3R POINTS p REGISTER TABLE 


#0. RMDAO 

#SEEK'GO,RMCS10 : 

#PUTINX,R 
“WRITE REGISTER INDEX TABLE 


sWRITE TERMINATOR 

G0 ois REGISTER(S) WITH PUT SUSROUTINE 
360 TO 4$ IF NO ERROR 

;RETURN HERE IF ERROR 






CZRNDAO RM8O FCTNL P 
T42 SEEK FIRST C 


—~ 
~~ 


x 


ee 


— 
ae 
SN 


re iets Hitt 


042546 


027572 
043564 


027572 
051206 


027572 
050562 


027572 


044416 


027572 


1276 


1 
3 001326 


F 11 
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YLINDER 






EMT sERROR # DE 
JMP 10$ :G0 TO 10S 
43: JSR PC,GETSTS [SETUP FOR 
JSR PC; TIMOUT “WAIT FOR 
JSR PC,GET 260 READ R 
BR 5§ 760 TO 5$ 
NOP ‘RETURN HE 
EMT sERROR # D 
5s JMP 10$ :60 TO 10$ 
JSR PC PRIERR :60 CHECK 
BR 6$ 3GO0 TO 6$ I] 
NOP SRETURN HERE I 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
ms JMP 10$ “GO TO 10$ IF ERROR 
JSR PC,SEKSTS :60 VERIFY RESULTS OF SEEK OPERATION 
BR 7$ :60 IF NO ERROR 
*R HERE IF ERROR 
SE # DEFINED BY SEKSTS SUBROUTINE 
PC .a(SP)+ : RROR CHECKS 
7$ : : 
PC, CMPERRSTS ERRORS NOT MASKED 
ND TMSK 
DPE 
8$ 
RROR 
Y CMPERRSTS SUBROUTINE 
PC .a(SP)+ RROR CHECKS 
1 
PC. SECERR OR SECONDARY ERRORS 
CERR SUBROUTINE 
PC ,0(SP)+ CHECKS 
1 
9$: 
10$: 
FF AAAAAAAARAEAAAAEAARAEAAARAAARRAERAAAAAAAAARAAARARREERERAAERARERRE 
“STEST 43 SEEK LAST CYLINDER 
a ee ee 
:SCOPE CALL 
3ST. OF TEST 
#STACK, SP S INITIALIZE STACK POINTER 
E.R ‘RO = UNIBUS ADDRESS 
_ TSTQUE,R1 =(R1). = DEVICE BEING TESTED 
#1, STIMES 33 IT RATION 
#43, STESTN *:SET TEST NUMBER IN APT MAIL BOX 











SEQ 0135 


ES LS ENS 


6 TT 
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143 SEEK LAST CYLINDER 





























1444 0 7 041532 TSTPRP :PREPARE DE 
o57ees 002430 JSORD 084] 3 s TASK DESCR : 
[CLEAR CONTROLLER ICE 
i VERIFY CONT R TION 
K ACKNOWLE UME NOT VALID 
“VERIFY PACK A 
:RECALIBRATE ia ‘PIP’ IS SET 
‘VERIFY RECALIBRATI 
2$ 760 TO 2$ IF NO E 
SERROR # DEFINED BY TSTPRP SUBROUTINE | 
a 10$ “60 TO 10$ IF 
1 #560. .RMDCO :CYLINDER = 560. 
144 STRACK = 0, SECTOR = 0 
1448 ‘LOAD SEEK IN BUFFER 
1449 sR2 POINTS TO REGISTER TABLE 
1450 sWRITE REGISTER INDEX TABLE 
3 
1288 :WRITE T 
1454 £60 a "REGLSTER(S) WITH PUT SUBROUTINE 
RETURN ERROR 
“ERROR EF INED BY PUT SUBROUTINE 
10$ :60 TO 
1455 JSR PC. GETSTS : SETUP TATUS FETCH 
145 JSR PC, TIMOUT SWAIT EK TO COMPLETE 
1458 JSR PC,GET :60 ISTER(S) WITH GET SUBROUTINE 
BR 5§ :G0 TO ERROR 
NOP :RETURN RROR 
EMT “ERROR D BY GET SUBROUTINE 
_ JMP 10$ :60 TO RROR 
1460 JSR PC,,PRIERR 260 CHE 
BR 6$ :60 TO 
NOP RETURN RROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR pe .a(SP)+ 260 BA ERROR CHECKS 
1461 JMP 1 :60 TO 
1462 JSR PC .SEKSTS :G0 VER SEEK OPERATION 
NOP : RETUR 
EMT “ERROR KSTS SUBROUTINE 
JSR pe .a(SP)+ :60 BAC CHECKS 
ae JMP 1 *GO TO 
1464 JSR PC.CMPERRSTS §: CHECK 
.WORD NDTMSK “MASK F 
.WORD DPE “MASK F 
&R 8$ :60 TO 
NOP * RETURN 
EMT sERROR # 
JSR PC ,a(SP)+ “GO BACK 
JMP 1 :GO TO 1 





HTT 
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143 SEEK LAST CYL 
182 8$: 
044416 JSR PC, SECERR : c Y ERRORS 
Bk o$ 3 F E 
NOP ; HERE E 
EMT SERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
JMP 108 :GO0 TO 10$ IF 
igh . 
14 9 030064 10S: | 
1471 S RARERARAEAAEERE AAAERAEAAEERERAARARARARARHREERERRAREERRERARRERREE | 
TATEST 46 SEEK PRIME CYLINDERS | 
ate aman lmanaaeaan aera aaa | 
SCOPE :SCOPE CALL 
40 NOP “START OF TEST 
1 1100 MOV #STACK ’ SINITIALIZE STACK POINTER 
74 01 1276 MOV E.R :RO = UNI 
100 1 J 1466 MOV TStaue °(R1) = DEVICE BEING TESTED 
1 1 2 1206 MOV #e STIME *:D0 2 ITERATIONS 
” 112 01 4 001226 MOV iStifes °:SET TEST NUMBER IN APT MAIL BOX 
1678 038 0 012737 000001 001446 se MOV #1, RMDCO :FIRST CYLINDER = 1 
1475 0301 0047 7? 041532 JSR PC TSTPRP : PREPARE DEVICE FOR TEST 
0301 541 -WORD 0541 FOLLOWS: 
SELECT DEVICE 
CLEAR OPERATION 
| PACK DGE IF VOLUME NOT VALID 
SVERIFY PACK AERO EDS py: 
: E I Fah PIP’ IS SET 
04 AR 2$ s wes 
4C NOP ’ ERROR 
F EMT > INED BY TSTPRP SUBROUTINE 
a 0001 JMP 9$ ; RROR 
14 12737 MOV #0, RMDAO :TRACK = 0, SECTOR = 0 
1678 1 I MOV #SEEK!GO,RMCS10 LOAD SEEK COMMAND IN BUFFER 
14 1 Y MOV #PUTINX Re :R2 POINTS TO REGISTER TABLE 
1 1 00% MOVB sRADC (Re + § SWRITE REGISTER INDEX TABLE 
1 1 MOVB (R2)+ 
1 1127 | MOVB 
1 11 1002C movB #200, (A2) :WRITE TERMINATOR 
1 JSR “GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
04 BR :G0 70 NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR FINED BY PUT SUBROUTINE 
; 137 030376 -. J 9$ 760 TO F 
1 7 JSR PC,GETSTS :SETUP FOR STATUS FETCH 
if ieee 929396 PC; TIMOUT ‘WAIT FOR SEEK TO COMPLETE 
1 737 042546 JSR PC,GET 260 READ REGJSTER(S) WITH GET SUBROUTINE 
4$ *GO0 TO 4$ iF NO ERROR 
60 ; HERE IF ERROR 





—— 


000137 





1494 03031¢ 
1495 03¢ 
ASS 
> 
0356 
03 8 
7 
14 C 
14 C 
( 





all nal abi 
PPA Ee EN 


SSS 
7. 
=\,¢"- 
~ 
SNS 


SOO* 






- )  ) a) ee ee ee | oe | ee | ee) ee Toe ee Dee Toe Toe |) ee |) ee 7) ee) ee oe | eT ee 


ond eed ed ceed cod amcd od ened 
= 
a Ss3s 


0 

1 

1 
12 013701 
16 012737 
24 0127357 





030376 
043564 


030376 
051206 


001446 


001326 
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EMT sERROR # DEFINED BY GET SUBROUTINE 
sl JMP 9$ :GO TO 9$ IF E 
JSR PC PRIERR :60 CHE Ck FOR PRIMARY ERRORS 
BR 5$ :GO TO 5$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
a JMP 9$ *GO TO 9$ IF 
JSR PC, SEKSTS :G0 VERIFY 
BR 6$ 760 TO 6$ IF 
*RETURN HERE 
SERROR # DEFI 
PC,a(SP)+ 760 BACK FOR 
6s Qs :60 TO 9$ IF 
PC,CMPERRSTS ;CHECK ANY E 
ND TMSK “MASK FOR RME 
DPE ;MASK re RAE 
7$ 3:60 TO IF 
“RETURN HERE 
sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
PC,a(SP)+ 60 BACK FOR CKS 
= 9$ :60 TO 9S IF 
JSR BC. SECERR :60 CHECK F 
BR :60 TO 8$ IF 
NOP sRETURN HERE 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :G0 BACK FOR ERROR CHECKS 
as JMP 9$ 260 TO 9S IF 
ASL RIAD CO sSHIFT TO NEXT PRIME CYLINDER 
CMP 12. ,.RMDCO <1S THE TEST DONE?? 
BLO oh sYEes!! 
si JMP 1$ *GO DO NEXT CYLINDER 
fF SARAARARKRAERAERERARARARTEEEERERAARARAKAERAAAEAAKAERERARAERRERERRERE 
“*TEST 45 SEEK ZERO DIFFERENC 
a ee ee eee eee 
: SCOPE 
‘START OF TEST 
#STACK i? « TACK POINTER 
SBASE : SS 
TSTOUE R1 =¢ DEVICE BEING TESTED 
#25. STIMES 33 RATIONS 
#45, $TESTN 3: R IN APT MAIL BOX 
1$: 


“word 054130 





SEQ 0138 


ee te ~ 


| 
| 


SEQ 0139 


Ju 
















2 ss 
9 ws wy rm 
2 : = g 2 : 
oad y = = a 
3 3 “ 
E og ge we ff 
Fr 4 >< Hs w o =" iS 5 
33 sf x vt | ge & 
e 23 x ws hd b= 43 ra us 
— a = ae fen tas a wo 2 FS > 
2 wy OME Fees > Fe oe = < 
5 ~~ New ~ & 3 = 
Teess & oe% SSE5S S555°S wees” as & 
Bee | o SSS Se ws ome A fee Ww uses a) 
a mu uw wi. of =. 2 a a vy) 
te. ts > ea ven ou See 7 w” 
yy =2 S wis 3 OEn~ ro 
ome Lk oes og -— 
MwMwluwu ee OF ee Ou. Wu. = .. Wu. 
<<u aSe Bic-us w 
ms —- Hew ce = 
eS eowsko meeSsnce OD 
ae>ucwY mocaes — 
®e*e *e *e *e *e Fe Se *e %e %e 6 %e ce ee $e &@ 26 Fe 





Nhe ce + wv > x + [4 
fee a os Been om -~ i 
 & , 2 @s by o S$ 
3 wea $8 « oe c . os en 





2s 
3$ 
4$: 
5$: 
$ 
7$ 
$ 





050562 


7 063016 
704 

a6946s 

737 042546 





Son ee pm ee ee ee em ee 


04 
és 
1 
7 
. 
1 
7 
7 
sae 
1 
? 
. 
1 
7 
5 
1 
737 
7 
1 
7 04441 
5 Doocos ***° 
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T45 SEEK ZERO DIFFERENCE 





3s 


~ 
_') 
~ 


ss 
7 
1540 

1541 

1542 030740 


ooo Sooo7[7ooco 
~“ 
= 
oS 


~ 
™ 


7 
c 
75 
754 
1543 7 
1544 7 
134g fs 
1347 
1349 
a 
188 


VA 


SARS 


a ee | meee med cmd) eed eed aod wend coed comet und) cand ened 


ee aoe wee 


So 
mr 


w= Bt OOOO 83 
Ses 
Bay WSS 


ed and and od woh and o 3B ond 


NINO 






041532 


031172 


3117 
a69h6> 
3 
042546 


031172 


10$: 
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DIFF ERENCE 


il 


R3 
10$ 
3$ 


K 11 


SEQ 0140 | 





:RETURN HERE IF ERROR : 
SERROR # DEFINED BY SECERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS | 
:60 TO 10$ IF ERROR : 


soem Mt SEEKS?? 
[NO = GO DO NEXT SEEK 


fRRRRERAEAERARERRERRRREREEEEERERREEEEEAREREREEREREEEERNEREREEREEE 


SEEK MAXIMUM DIFFERENCE FORWARD 


° *RAEAAAEAEAEEAAERAAAAAAEEAEEAAAARKEAAEAAERNARAERAREEEEKAEKKAKKEAKKKKKEE 


SSTEST 46 
TST46 





1$: 


2$: 





a ia C.. Fr 
Bg*gSSSeeess 426% 





MP 
JSR 
JSR 


3$: 


ee raek SP 


Pe TOue R1 
#25, 
#46, $TESTN 


052130 


2$ 


#560. ,RMDCO 
#SEEK'GO,RACS1O it 





8$ 
PC,GETSTS 
PC, TIMOUT 


PC GET 
4% 


STIMES 





; E 

sSTART CF TEST 

s INITIALIZE STACK POINTER 
3RO = UNIBU 

3(R1) = DEVICE BEING TESTED 





::D0 25. ITERATI 
33SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLL 

>CLEAR CONTROLLER & SELECT DEVICE 
CLEAR OPERATI 


; VERIFY CONTROLLER C ON 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE DRIVE 
“VERIFY RECAL IBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
760 TO 8$ IF ERROR 


sLAST CYLINDER 
‘TAB SEER’ SECTOR = 


OAD OMMAND IN BUFFER 
:R2 POINTS TO REGISTER TABLE 
;WRITE REGISTER INDEX TABLE 

















sWRITE TERMINATOR 
260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
; IF NO ERROR 


HERE IF ERROR 
ZERROR Be TE eRe BY PUT SUBROUTINE 
;SETUP FOR STATUS FETCH 
;WAIT FOR SEEK TO COMPLETE 


:GO READ nee STeR ts? WITH GET SUBROUTINE 
O 4$ IF NO ERROR 
“RETURN HERE IF ERROR 


sERROR # DEFINED BY GET SUBROUTINE 
:60 TO 8$ IF ERROR 


a 
: 
: 


a a en 


AUER RVSOMN 


le ee et ee ee Sl lt et a 
WOR RON E 
No Crornny 


ema 2 cock nd ach 


enw 
~ 
MOINS 


oooooceco 
WWIII 
wordy ead ad cock aeeB ord 2 


cseuh cont wom 
RSS © 


= 





x 
z 


000004 
40 
12706 
13700 
13701 


012737 


054130 


04 
1 


012737 


L 11 
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ORWARD 
4$: 
043564 JSR PC -PRIERR :G0 CHE Ck FOR PRIMARY ERRORS 
BR & :GO0 TO 5$ IF NO ERROR 
NOP *RETURN HERE OR 
EMT SERROR # DEF PRIERR SUBROUTINE 
JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
031172 “ JMP RS :60 TO 8$ IF E 
051206 JSR PC,SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
BR b$ *GO TO 6$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT RROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ “GO BACK FOR MORE ERROR CHECKS 
031172 a JMP 8$ “GO TO 8$ IF ERROR 
050562 JSR PC,CMPERRSTS |; CHECK ANY ERRORS NOT MASKED 
.WORD NDTMSK “MASK FOR RMER1 
“WORD DPE *MASK FOR RMER2 
BR § *GO TO 7$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT : DEFINED BY CMPERRSTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
031172 a JMP BS "GO TO 8$ IF ERROR 
044416 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR 8$ :GO0 TO 8$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
i JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
FF ARERAAAREAERAEARAEREREREEEEERAAAEEREREEAEEEEAREREEAEEEREREKERRERE 
STEST 47 SEEK ADJACENT FORWARD 
co ee 
TST47: 
SCOPE :SCOPE CALL 
NOP :START OF TEST 
1100 MOV #STACK SP s INITIALIZE STACK POINTER 
1276 MOV SBASE ,R “RO = UNI 
14 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
000047 001226 MOV #47, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
1$: 
041532 JSR PC TSTPRP :PREPARE DEVICE FOR TEST 
.WORD 054130 *TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR CONTROLLER & SELECT DEVICE | 
“VERIFY CONTROLLER CLEAR OPERATION. 
*PACK AC DGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
*RECALIBRATE IF ‘SKI’ OR ‘PIP’ IS SET 
* VERIFY 
BR 2s 360 TO 
NOP “RETURN HER 
; EMT “ERROR STPRP SUBROUTINE 
031474 ai JMP 10$ : 
000000 001446 MOV #0,RMDCO sCYLINDER = 0 


SEQ 0141 


| tases RMBO FC 
7 SEEK AD 
1573 031246 
1328 1254 
1375 031363 
1372 031378 
1378 31876 
1580 031 
1581 Oy : 
031314 
O18 
15 1324 
1388 031 
1585 4 34 
15 5 
1386 5 
1588 
138 8 
4 
4 
4 
4 
1330 41 
1591 rt 


SRR MM OAEE Renin 


onl cal nd oun ond onal ends end aed ond eh Od ered em cand ek ed cmd aed coc Coed ed ed oe ccd cet ce ed ced ed ce eed eed eee eh od eed ed od 


S 
Ps 


A 11 
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JACENT FORWARD 
12737 00142 #0, RMDAO 
12737 141 #SEEK!GO,RMCS10 
1 001545 #PUTINX Re 
127 #RMDC . (Re + 
1139 Warsi (a2)+ 
1127 = #200, (R2)+ 
737 1 : PC,PUT 
ae = | 
40 NOP 
1 EMT 
137 031474 JMP 10$ 
094 7 042462 4$: JSR PC,GETSTS 
7 043370 JSR PC. TIMOUT 
737 042546 JSR PC,GET 
04 BR 5$ 
240 NOP 
1 600 EMT 
000137 031474 = JMP 10$ 
004737 043564 “os JSR PC, PRIERR 
000405 BR 6$ 
000240 NOP 
104000 EMT 
004 JSR PC a(SP)+ 
000137 031474 p JMP 10$ 
737 051206 : JSR PC, SEKSTS 
05 BR 7$ 
40 NOP 
004 oor PC,a(SP)+ 
000137 031474 " JMP 168 : 
004737 050562 5 JSR PC, CMPERRSTS 
115760 .WORD NDTMSK 
10 WORD 
0 
ie 
a(SP)+ 
137 031474 108 
8$: 
737 044416 JSR PC. SECERR 
05 BR 
ie NOP 
JSR PC, a(SP)+ 
137 031474 i J 168 
i 001446 TsT —_—RADCO 
7 001446 - RMDCO 
137 Oe 36e : a 3% 





SEQ 0142 


:TRACK = 0, SECTOR = 0 
: FUNCT 1ON CODE FOR SEEK 
*R2 POINTS TO REGISTER INDEX 
“WRITE REGISTER INDEX TABLE 


TERMINATE REGISTER TABLE 

:G0 walle REGISTER(S) WITH PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 

:RETURN 7. IF ERROR 


sWAIT 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 5$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

G0 TO 10$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:G0_TO 6$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

G0 TO 10$ IF ERROR 


:GO VERIFY RESULTS OF SEEK OPERATION 
260 TO IF NO 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY SEKSTS SUBROUTINE 
G0 BACK FOR MORE ERROR CHECKS 

:GO TO 10S IF ERROR 








CMPERRSTS SUBROUTINE 
RROR CHECKS 
0 10$ IF ERROR 


Y ERRORS 


ERR SUBROUTINE 
CHECKS 
TO 
FIRST TIME THROUGH?? 
“YES = SEEK TO ADJACENT CYLINDER FORWARD 


o 


ww 
_ 


od od ed reed ed ed ned weed aed 


Ww 


eed ceed ceed ced eed eed reed ed eed eh ed 


ek cmd cue ood and 


AA 
WEIN 
SOOOOOCOOOSOooooooooo 


woe ed neck at 


AAA 
Coo~nco 


ad eed ok ed 


— 


SS 


rirteteteterr pete tepe petri 


eh vanaty smady vem want wd rary) ed cd cond) coh ov) cord rent eed cond aud edd ed coed ed ec ee eed ceed eed ce ee cc ed ed ceed ed ee eed 


Pe SS SSIS So 


: 
r 
~“ 


N11 
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JACENT FORWARD 





{ RARAAAAAEAEAAARAEAAEAAEEEAEEAAREAEAEREREEREREREKEREREEKEREKKKKKKE 















CATEST 50 SEEK ADJACENT REVERSE 
api malate iaaaamamaaanan aan 
: SCOPE CALL 
40 NOP ‘START OF TEST 
1 oe MOV #STACK,SP EINITIALIZE STACK POINTER 
137 | MOV $BASE ,RO sRO = UNIBUS ADDRESS 
13701 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
12737 001226 MOV #50,$TESTN ‘:SET TEST NUMBER IN APT MAIL BOX 
1$: 
004737 041532 JSR PC TSTPRP : PREPARE DEVICE FOR TEST 
41 .WORD 054 ASK DESCRIPTOR AS FOLLOWS: 
; ‘CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATI 
ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWL F GE aa 
*RECAL ‘SkI"’ OR “PIP’’ IS SET 
‘VERIFY RECAL {BRAT ION 
04 BR 2$ :GO TO 2$ IF NO ERROR 
194000 :ERWOR 4 DEFINED BY TS TPRP SUBROUT INE 
000 032000 ms 10$ :GO0 TO 10$ IF ERROR 
12737 1 001446 #1,RMDCO sCYLINDER = 1 
12737 1420 MOV -TRACK = 0, SECTOR = 0 
12737 001412 :F TION CODE FOR SEEK 
127 45 POINTS TO REGISTER INDEX 
i g {WRITE REGISTER INDEX TABLE 
1127 
1127 re ; TERMINATE TABLE 
737 043016 PC PUT 260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
ie *GO TO 4$ IF NO ERROR 


RETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 











: 10$ 760 TO 10$ IF ERROR 
737 oe ogg 4$: PC,GETSTS ‘SETUP TO READ ALL REGISTERS 
7 3 PC. TIMOUT “WAIT FOR SEEK TO COMPLETE 
ae 042546 sR pC .GET : ;GO READ REGISTER(S) WITH GET SUBROUTINE 
032000 ea 10S 
737 043564 ' JSR PC.PRIERR 
BR at 
NOP 
137 032000 JMP 108 


051206 j JSR PC, SEKSTS GO VERIFY RESULTS OF SEEK OPERATION 
a 


~— ee 


Sle 





6 1$: 
32006 737 041532 JSR pes TerPRP sPREPARE DEVICE FOR TEST 


032032 054130 WORD :TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
3PACK A EDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
:RECAL SKIT OR “PIP IS SET 
: VERIFY RECALIBRAT 10N 

000404 aR 2$ :60 TO 28 IF NO E 

000240 NOP :RETURN HERE IF ERROR 

1 EMT SERROR # DEFINED BY TSTPRP SUBROUTINE 

000137 032416 IMP 48 :60 TO 14$ IF ERROR 


2$: 

a RmOFO’ RMCS10 ; SEEK a air 

FORMAT 18 BIT 

= CYLINDER 

: INVALID SECTOR = 30., TRACK = 0 






IS 
i 
: 


001412 
001444 
001446 MOV 
142 MOV RCD 
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150. SEEK ADJACENT REVERSE 
031700 05 BR 7$ :G0 TO 7$ IF NO ERROR | 
631702 4 NOP “RETURN HERE IF ERROR 
031 1 EMT ZERROR # DEFINED BY SEKSTS SUBROUT INE | 
0317 JSR PC a(SP)+ :GO0 BACK FOR MORE ERROR CHECKS 
nin 0 1710 137 032000 - JMP 10$ :GO TO 10$ IF ERROR 
188 031714 004737 050562 JSR PC,CMPERRSTS |; CHECK ANY ERRORS NOT MASKED 
031 115760 .WORD NDTMSK “MASK FOR RMER } 
031722 000010 - “MASK F | 
031724 05 BR :GO TO 8$ IF NO ERROR 
0317 40 NOP *RETURN HERE IF ERROR 
0 1 1 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
31; JSR PC,a(SP)+ :G0 BAC MORE ERROR CHECKS 
soul 031734 000137 032000 “ JMP 10$ :GO TO 10$ IF ERROR 
1657 031740 004737 044416 JSR PC, SECERR :60 0 CHECK FO FOR uSECONDARY ERRORS 
031744 05 9$ NO ERROR 
031746 240 ‘OE TURN HERE IF ERROR 
0 1730 104 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
175 004 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
in ° 1754 137 032000 i JMP 10$ :G0 TO 10$ IF ERROR 
1 1760 022737 000001 001446 CMP #1,RMDCO :1S THIS THE FIRST SEEK?? 
1 031766 1004 BNE 10$ ‘NO!! 
1631 031770 005 001446 DEC RMDCO sYES = SEEK TO ADJACENT CYLINDER 
1632 031774 000137 031610 JMP 3$ "GO SEEK 
Ny 032000 10$: 
1635 5 RERRERRREERERERERERERERERERERRRERAEEREREREREREREREEEEERERER EES 
“TEST 51 SEEK INVALID SECTOR 
FF AAAAAAAAAAAREAAAEAAREEEERARAREKAEERRARERERKEREEEEEREREERKEREERERE 
03 O08 TST51: 
3 000004 SCOPE :SCOPE CALL 
32002 000240 NOP ‘START OF TEST 
32004 12706 001100 MOV #STACK $P sINITIALIZE STACK POINTER 
032010 013700 001276 MOV R :RO = UNIBUS ESS 
0 14 013701 001466 MOV TSTOUE R1 7(R1) = DEVICE BEING TESTED 
20 012737 000051 001226 MOV «so #51,$TESTN <:SET TEST NUMBER IN APT MAIL BOX 


L te 
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1 SEEK INVALID SECTOR 
1644 032076 0127 1545 :R2 POINTS TO REGISTER TABLE 
1645 0 102 1127 32 ‘WRITE REGISTER INDEX TABLE 
1646 106 1127 
164 12 11 
1648 116 1127 
1649 032122 1127 : TERMINATE TABLE 
1650 004737 04246 oi PC GETSTS *SETUP INPUT REGISTER INDEX 
1652 032132 004737 052466 JSR PC,CNTCLR :60 0 ISSUE CO CONTROLLER CLEAR 
0321 900404 BR 4$ NO ERROR 
03214 40 NOP ‘OE TURN MERE IF ERROR 
03214 104 EMT * ERROR R DEFINED BY SUBROUTINE 
sl 0 146 137 032416 - JMP 14$ 760 TO 14$ IF ERROR 
1654 032150 004737 042546 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
032154 BR 5$ :GO TO 5$ IF RR 
0 156 000240 NOP ‘RETURN HERE IF ERROR 
160 104000 EMT SERROR # DEFINED BY GET SUBROUTINE 
1655 8 162 000137 032416 ~ JMP 14$ 760 TO 14$ IF ERROR 
1656 166 004737 052604 JSR PC,CLRSTS :60 VERIFY CONTROLLER CLEAR OPERATION 
032172 000405 BR 4§ GO TO 6$ IF NO ERR 
032174 000240 NOP “RETURN HERE IF ERROR 
032176 104000 EMT “ERROR # DEFINED BY CLRSTS SUBROUTINE 
0 004 J PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
om 2 000137 27/16 ‘i JMP 14$ *GO TO 14$ IF 
1658 8 737 043016 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
1 04 7$ :GO TO 7$ IF NOE 
14 240 ; HERE IF ERROR 
16 1 600 EMT : EF INED BY PUT SUBROUTINE 
are 3 000137 032416 ‘i JMP 14$ : F ERROR 
1660 4 004737 043370 JSR PC, TIMOUT :WAIT FOR GO TO RESET 
1662 0 004737 042546 JSR pC .GET :G0 READ REGISTER(S) W 
0 04 RR :60 TO Fe 
40 NOP . s RETURN 
40 1 EMT *ERROR # 
ill 42 000137 032416 i JMP 14$ *GO TO B 
1664 7 043564 JSR PC .PRIERR :G0 CHE PRIMARY ERRORS 
5 BR O8 3:60 TO 
4 NOP :RETURN 
EMT ERROR IERR SUBROUTINE 
004 J PC,a(SP)+ *GO BACK F ‘CHECKS 
sed 137 032416 es JMP 14$ =GO TO 
1888 737 051206 JSR PC SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
05 BR 108 =GO TO. 10$ IF NO ERROR 
4 NOP *RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC, a(SP)+ °60 BACK MORE ERROR CHECKS 
137 032416 JMP 148 “GO TO 14$ IF ERR 
fee 8 
1 004737 050562 JSR PC,CMPERRSTS |: CHECK ANY ERRORS NOT MASKED 


CZRNDAO RM8O F 
151 SEEK | 
1 
: i 
% i 
525 
03¢ ¥ 
1670 032332 
1671 i . 
S220 
> 
> 
i 52 
167 
1678 5235 
1674 032356 
ig 23 
1677 
1699 ie 
1 404 
: cog 
1 416 
1 
1 


— = 
o 


POROROFOROFORG 
PREPRESS 


—— 
eS 
oo 
es 
Ws 


ee 
of 


eee ae es 


Less 


Vic 
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NVALID SECT 


032416 
044416 


032416 
re tpe ss 0 


010000 
01 
030139 


ag 
000082 
041532 


001226 


12$: 


13$: 


14$: 





— 
1 


PC,a(SP)+ 
148 


— 


PC,a(SP)+ 
1-3 





“MDAO 
RMDAO , #64. 
3$ 


#FMT16,RMOFO 


#FMT16,RMOFO 
a3! . -RADAO 







:MASK FOR RMER 

:60 TO 12$ 

*RETURN 

sERROR # D RRSTS SUBROUTINE 
:GO BACK F CHECKS 

:G0 TO 1 

:G0 CHEC ARY ERRORS 

:GO TO 1 

*RETURN HERE IF ERROR 

*ERROR NED BY SECERR SUBROUTINE 


:G0 BACK FOR MORE ERROR CHECKS 
:G0 TO 14$ IF ERROR 


at ee TOR ADDRESS 

NO - TEST NEXT SECTOR 

:BR IF YES FOR 16 BIT MODE YET ? 
7SET 16 


BIT FORMAT E 
:SET INVALID SECTOR 31. 
NO - TEST NEXT SECTOR 





J AARAAAAAAAAAAAEEAAAERERARRERAARAEKERERRERRERRARERERERERRAEERERERREKREE 


SEEK INVALID TRACK 


s ERARAAAAAAERAEREAAAEREREEEREAEAKEAEERARAEAREEAREKREREEEEEEREKREREREEEKREE 


SATEST 52 
+8152: 


MOV 
MOV 
MOV 
MOV 
JSR 








Mes SEA 


TSTOUE Rt 


Os4130 


1$ 


13$ 





LSTRK,RMDAO 
RADAO#1 

#EMT 6 -RAOFO 
#PUTINK,R 


e 





#SEEK!GO,RACSIO ; 
CO 


sSCOPE CALL 
sSTART OF TEST 
3 INITIALIZE STACK POINTER 


= UNI 
3(R1) = DEVICE BEING TESTED 
:3SET TEST NUMBER IN APT MAIL BOX 


:PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
Ck ACKNOWLEDGE IF VOLUME NOT VALID 
IFY PACK ACKNOWLEDGE 

IF Ski OR “PIP IS SET 








ECTOR = 0 
* SETUP p FInSt SNVALID. TRACK 


35 T 1 
RD POL POINTS TO REGISTER TABLE 
“WRITE REGISTER INDEX 


SEQ 0146 


——. _ 
> eee ee Ge = 
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ssseesa 
SSSSSSS 
ooooocoooooo 


WA RURI ARORA POR IA DROP ORIRORRDR E 


+?-4¢-0?-4? 4+ -¢?-4f-0} 47-4? ¢+-0?-¢¢-+- 47-47 0f- e+ 
~N AC 
ow om 
+oo 


BEE 


IN 


PAM 


ZOC > 


RRR PUR ROMO 
POS SE SALOO 


RIMINI 


Co ORO 
SINS : 


NVALID TRACK 
1 
1 
1 
1 


34 


052466 


033014 
042546 


033014 
052604 


033014 
043016 


033014 
043370 
042546 


033014 
043564 


033014 
051206 


033014 


050562 


3$: 


4$: 


7$: 





E le 


A$ (R2)+ 





200, (Res 
PC, CNTCLR 
3$ 


13$ 
ail 


13$ 
PC,CLRSTS 
5$ 

PC ,a(SP)+ 
is 
PC PUT 
6$ 

13$ 

PC, TIMOUT 
PC,GET 
7s 

13$ 

PC ,PRIERR 
8$ 


PC ,a(SP)+ 
188 


PC ,SEKSTS 
9$ 


PC.a(SP)+ 
188 


(R2)+ 


eal (R2)+ 


PC .CMPERRSTS 


AE !NDTMSK 
DPE 





TABLE FOR OUTPUT 


TERMINATE TABLE 
;SETUP INPUT TABLE FOR STATUS 


60 ep aye fe sence CLEAR 
NO ERROR 


RETURN HERE IF ERROR 
ERROR R DEFINED BY SUBROUTINE 
760 TO 13$ IF ERROR 


GO READ wig get} WITH GET SUBROUTINE 
:G0_ TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # wa BY GET SUBROUTINE 

360 TO 13$ IF ERROR 


+60 op venue’ lle CLEAR OPERATION 


RETURN HERE IF ERROR 

sERROR # DEFINED BY CLRSTS SUBROUTINE 
3G0 BACK _FOR MORE ERROR CHECKS 

GO TO i3$ IF ERROR 


+60 gt TF WS Ens WITH PUT SUBROUTINE 


SRETURN HERE IF ERROR 
sERROR # gla > BY PUT SUBROUTINE 
:60 TO 13$ IF ERROR 


sWAIT FOR GO TO RESET 
+60 oo te es it eg tle WITH GET SUBROUTINE 
NO ERROR 


‘RETURN HERE IF ERROR 
ERROR # gta} BY GET SUBROUTINE 
360 TO 13$ IF ERROR 


G0 OD Ores fe FOR un tooo ERRORS 


¢RE TURN HERE IF ERROR 

# DEFINED BY PRIERR SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
760 TO 13$ IF ERROR 


GO VERIFY RESULTS OF SEEK OPERATION 
G0 TO IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # oan te BY SEKSTS SUBROUTINE 
:GO BACK_FOR MORE ERROR CHECKS 

760 TO 13$ IF ERROR 













;CHECK ANY ERRORS NOT MASKED 
K FOR RMER1 
:MASK FOR RARER 


SEQ 0147 


rer ee ee EOE ne —_ —_ 









05 
4G 
1 
1719 
1720 737 
05 
40 
1 
1 
1721 
1 § 1 7 
17 1 7 
1724 101 $ 
1725 0001 
1797 
1 
1728 
40 
1 
13701 
O12737 


awd 


Ww 
~— 4 2 ~OOOOO 
ered weed weal) ened caret) aud) cael ceed anak ould 





med meh ed et me ed ered) med) ech mend enc or aed eb 


RRNA 


001226 
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T52 SEEK INVALID TRACK 












BR 11$ :G0 TO 11$ IF NO ERROR 
NOP SRETURN HERE IF E 
EMT [ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
JSR pC ,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
= JMP 1 :GO TO 13$ IF ERROR 
JSR PC,SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR 128 :G0 TO 12$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT SERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
= JMP 13$ *GO TO 13$ IF ERROR 
INCB  RMDAO+1 s INCREMENT TRACK ADDRESS 
CMPB $ RMDAO+1,4128. :DONE?? 
BHI 13$ *BR IF YES 
_ JMP 2$ ‘TEST NEXT INVALID TRACK 
Ff RAAAAARAAEAERERAERAAERAEREEEARAAAAARAERAEREAEAREEEEAEEREREREERRRERY 
“*TEST 53 SEEK INVALID CYLINDER 
te Me ee 
SCOPE :SCOPE CALL 
NOP “START OF TEST 
MOV #STACK SP S INITIALIZE STACK POINTER 
MOV R :RO = UNIBUS 
MOV TSTOuE RI :(R1) = DEVICE BEING TESTED 
MOV #53, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
JSR PC TSTPRP :PREPARE DEVICE FOR TEST 
.WORD 0541 = TASK DESCRIPTOR AS FOLLOWS: 
SCLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONT ROLLE ER CLEAR OPERATION 
zPACK A pack DGE IF VOLUME NOT VALID 
:RECALIBRATE psKT at OR ‘PIP’ IS SET 
, ; VERIFY RECAL IBRAT 
BR 1$ NO E 
cf 
JMP 12$ 
MOV K!GO,RMCS10 :$ 
MOV ASOT CRMOCO’ cs 
MOV : TRA 
MOV 0 Set 16 FORMAT 
MOV *R2 POINTS TO INDEX TABLE 
MOVB “WRITE REGISTER TABLE 
MOVB 
MOVB 
MOVB si hD)s 
mMOVB #200.(R2)+ s TERMINATE TABLE 
JSR PC.GETSTS- - --:SETUP FOR STATUS --_ - | sere 
JSR PC,CNTCLR :GO ISSUE CONTROLLER CLEAR 
BR 3$ *GO TO 3$ IF NO ERROR 






















SEQ 0148 


ee ce eee eee = 





SRISRRSEK 





tt} 


wed cmd ened cont C7} 2 ~d 





Uru RIRRORIARS 


CNN AN TN CATAAATN 


‘tity 


wr 
+ 





tyt tye 
ed 


FCTNL P 
EEK INVALID CY 


LINDER 


4$: 


5$: 


10$: 


3° s2i8" E58 esne7s 3539 


NOP 
EMT 
JMP 
JSR 
BR 


NOP 
EMT 
JMP 


JSR 


128 
PC,GET 
4$ 


12$ 
PC,CLRSTS 
5$ 


PC 


12$ 
PC,PUT 
6$ 


a(SP)+ 


12$ 

PC, TIMOUT 
PC.GET 

7$ 


12$ 

PC PRIERR 
8$ 

PC ,a(SP)+ 
138 


PC, SEKSTS 
9$ 


PC ,a(SP)+ 
198 

PC .CMPERRSTS 
IAE 'NDTMSK 
10 
PC,a(SP)+ 
135 


PC. SECERR 
11$ 


tc 







SRETURN HERE 
sERROR 
760 10 128 I 


360 ay Pag eh SED WITH GET SUBROUTINE 


IF 






IF ERROR 
R DEFINED 8Y SUBROUTINE 
F ERROR 


“RETURN HERE IF ERROR 


ZsERROR # DEF 
:G0 TO 12$ i 


G0 VERIFY CONTROLLER CLEAR OPERATION 
260 TO 5$ IF 
sRETURN HERE 
# DEFINED BY CLRSTS SUBROUTINE 
K MORE ERROR CHECKS 
12$ IF ERROR 
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
T F NOE 


: ERROR 
:G0 BAC 
360 TO 


INED BY GET SUBROUTINE 
F ERROR 


NO ERROR 
IF ERROR 





*RETURN HERE IF ERROR 
“ERROR # DEFINED BY PUT SUBROUTINE 
*60 TO 12$ IF ERROR 


sWAIT FOR GO TO RESET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:60 TO 7$ IF RROR 
sRETURN HERE 


IF ERROR 





sERROR # DEFINED BY GET SUBROUTINE 
G0 TO 12$ IF ERROR 





mod 
zx © 


Es 





e 

m 
m 
5 


a ] 





See Ge e@e Ge Ge 
ss Ss 
se se 


] 
rm 
: 













FOR PRIMARY ERRORS 
NO ERROR 


CHECKS 


eee SUBROUTINE 


SEQ 0149 


- 


H l¢ 
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153 SEEK INVALID CYLINDER 
1 EMT :ERROR # DEFINED BY SECERR SUBROUTINE 
JSR pC .@(SP)+ :GO BACK FOR ERROR CHECKS 
— 137 033406 a JMP 1 :G0 TO 12$ IF ERROR 
1764 7 001446 INC RMDCO s INCREMENT CYLINDER ADDRESS 
176 7 001446 002000 CHP RADCO , #1024. : DONE ALL CYLINDERS ? 
17 1 $ 033146 JMP 2$ ‘TEST NEXT INVALID CYLINDER 
13 ie 
1188 5 ; EE 
SSTEST 54 IVC SEEK TEST 
eg i lu amt rae ai 
SCOPE :SCOPE CAL 
1 40 NOP *START OF TEST 
12 31 1100 MOV #STACK seas *INITIALIZE STACK POINTER 
16 01 1276 MOV :RO = UNIBUS ADDRESS 
13701 1666 MOV TeToue 7(R1) = DEVICE BEING TESTED 
— 12737 001226 MOV # TOE A :zSET TEST NUMBER IN APT MAIL BOX 
1772 033 34 737 052466 JSR PC. CNTCLR ;60 J CONTROLLER CLEAR 
i 40 NOP IF ERROR 
53 1 EMT E R DEFINED BY SUBROUTINE 
oni ; 000137 033746 i JMP *GO TO 8$ IF ERROR 
1774 03: 112737 4 001545 MOVB Sry PUT INDEX TABLE 
53460 11 001546 MOVB : E 
53466 012737 1 001436 MOV ; OUTPUT BUFFER = DMD 
0 3 7 043016 JSR : RMAR1 VIA PUT SUBROUTINE 
3350¢ 04 BR ; IF NO ERROR 
03350¢ 40 NOP : RETURN HERE IF ERROR 
0335¢ EMT : FINED BY PUT SUBROUTINE 
033506 1 . JM 8S : IF E 
1775 03351 2$: 
1776 133512 012737 001412 MOV EEK!GO,RMCS10 
130 Osseee O1Sear apes MOV eoet0 : CYLINDER 
1999 983882 01 1730 mol’ serie co, SECTOR =.0 
1780 033542 01 MOV NX,R “WRITE REGISTER INDEX 
1 33546 11 MOVB (R2)+ :TABLE 
1782 03: 1 MOVB 7 
1783 033556 11 MOVB )+ 
1784 033562 11 MOVE R2)+ 
1785 033566 11 MOVB )+ 
1 33 JSR $ : SETUP 
1 033576 JSR :60 WRIT 
93360. BR 260 TO 
toe 4 ORT CEEROR # DE 
— 36 19 000157 033746 = JMP 8S 360 TO 8$ I 
1788 33614 737 042546 JSR PC,GET 360 READ 
3362 BR 4 3G0 TO 4 
336¢ * RETURN 
0336 EMT “ERROR 


SEQ 0150 





I 12 
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T 1VC SEEK TEST 
$3626 7 Mp : 7 F ERROR 
1790 933038 000137 033746 a J 8$ GO 70 8S IF E 
1791 033636 737 043564 JSR BC SPRIERR 3G0 CHECK FOR PRIMARY ERRORS 
5636 BR 5 :GO TO 5$ IF NO 
3640 4 NOP SRETURN HE L IF ERROR 
53.64 ¢ EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
42: JSR PC,a(SP)+ [G0 BACK FOR MORE ERROR CHECKS 
46 O7328 JMP $ 
1798 536 7 13008 001400 5$: BIT #IVC,.RMER21 ; 
179 3660 1 iF BNE ; 
1794 033662 01 1 001140 MOV #IVC ,SGDDAT ; 
1795 033670 013737 0014 00114 MOV RIKERCI,SBDDAT : 
1796 1336 7? 167 114 BIC #*CIVC, SBDDAT 
1796 d337¢ = EMT 64 
1 3376 737 050562 JSR PC,CMPERRSTS ; 
3 pets . WORD TMS ; 
133714 01001 WORD 1VC!DPE ; 
' 5371 : BR $ ‘ 
933755 cae : 
)3372 JSR PC,a(SP)+ ° 
133726 1 033746 JP 8$ ; 
1800 03373 7$: 
1801 1373 737 044616 JSR RC SECERR ; 
5374 40 NOP : 
53742 «1 EMT : c 
44 004 JSR PC,a(SP)+ : RROR CHECKS 
1808 746 8$: 
1 Zs RAAEEAAAAAAAARAAARAEAAAAAEAKAAARARARAKARARARKCARARAARAREERREREREARAAAE 
| “TEST 55 ABORT SEEK TEST 
© ©EAAAEAAAAAAAAARATARARTAAEERARAREKERARAARAARARARAARARAAERERAERAREREARE 
746 TST55: 
SCOPE :SCOPE CALL 
? 40 NOP :START OF TEST 
1 0011 MOV #STACK SINITIALIZE STACK POINTER 
oe OIsrOr OO 4 SOV reTBUE RI Fai) evice meine TESTED 
203 766 012737 ose 001226 MOV TSTOUE AR ::SET TEST NUMBER IN APT MAIL BOX 
1 4 737 041532 JSR PC .TSTPRP sPREPARE DEVICE FOR TEST 
032000 004180 . WORD 058130 ‘TASK DESCRIPTOR as FOLLOWS: 
: CONTROLLER SELECT DEVICE 
: LER CLEAR OPERATION 
} PACK ACKNOWLEDGES tH 
: F SKI’ OR ‘PIP’ IS SET 
: BRATION 
04 BR 1$ s RROR 
40 NOP : F ERROR 
EMT : BY TSTPRP SUBROUTINE 
1 034310 JMP 9$ $ 


1$: 
1426 V R10 
$0008 | poTace MOV #O-RADCO 


ee men 
MOR 
oo 
nual, onal 
ror 
we 
IN 





J i2 
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ABORT SEEK TEST 





























































1810 03403¢ RMDAO -TRACK = 0, SECTOR = 0 
1811 36 peter ies RMCS10 :SEEK C 
1 1 aPUT INA. [SETUP REGISTER INDEX TABLE 
1813 050 [AND OUTPUT BUFFER 
1815 03406C + 
1818 74, + 
1817 034070 
1818 174 :SETUP FOR STATUS FETCH 
181 100 369 WRIT REGISTER(S) WITH PUT SUBROUTINE 
° 1] :RETURN, NOE INED BY FU T SUBROUTINE 
' 1 034310 i *GO TO 9$ IF ERROR 
183+ 118 042546 ; :60 RE REGISTER(S) WITH GET SUBROUTINE 
1 IF NO ERROR 
i EN ete ter swore 
1 034510 J 9$ :60 TO 9$ IF ERROR 
: 134 20000 001350 7%: gir #PIP .RADSI :D1D DRIVE START SEEK?? 
1 144 901350 00114 MOV RMDS1,$BDDAT OAD "DATA FOR TYPEOUT 
1825 03415 157777 00114 BIC #°CPIP,$BDDAT 
160 001140 CLR : DAT :GOOD DATA FOR TYPEOUT 
166 043370 4$: JSR PC, TIMOUT :WAIT FOR GO TO RESET 
1 7 042546 SR PC. GET 60 GO READ REGISTER(S) WITH GET SUBROUTINE 
s we ae 
) 034310 = JMP 9$ 760 TO 
1333 19 043564 "> «JSR BC -PRIERR :60 CHE 
Py i :60 70 
7 OeR CPC .@(SP)* sR BACK FOR ERROR Cece 
; 034310 a JMP 9S" | “60 TO 9$ IF 
1832 7 C 060210 ‘ JSR PC .STCDRVSTS 60 CHECK FOR CHANGES IN DRIVE STATUS 
BR 760 TO 7$ IF NO ERROR 
: NOP RE HERE IF ERROR 
} Toc acseye —ZanBtck Pn nahe Eason Cen mNONT 
ras Onisee 034310 o. JMP 9$° 760 TO 9$ IF ERROR 
1832 ¢ 050562 ; JSR PC CHPERRSTS :CHECK ANY ERRORS 
+ .WORD NDTMSK “MASK FOR 1 
5¢ “WORD DPE sMASK FOR RMER2 
366 BR 8$ :G0 70 8$ IF NO ERROR 
i$ NOP “RETURN HERE IF ERROR 
¢ SSR PC. a(SP)+ cs 
C 034310 JMP 9$° : 





1837 74 8$: 


ay ce ee en 


a em 


Neng een tense 


| kK 1 
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155 ABORT S 
1838 0 737 044416 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 9$ :GO TO 9$ IF NO ERROR 
2 NOP “RETURN HERE IF ERROR 
1 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
1B ° * 
1841 f EAAAAAAAAAEAEAAAEAAAEEAERERAERERERAERERERAERARAEREERAEARERERRREKEKEE 
CSTEST 56 SEEK AT OFFSET 
i caqeeennenoneEE ooreeneeunnnNnnCnanaseneanacccceneneoeneS 
10 s 
6 19 SCOPE :SCOPE CALL 
0 1 40 NOP “START OF TEST 
14 Ot 06 001100 MOV #STACK,SP S INITIALIZE STACK POINTER 
0 137 1276 MOV :RO = UNIBUS ADDR 
054 4 013701 001466 MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
“s 0 012737 000056 001226 MOV #56,$TESTN *:SET TEST NUMBER IN APT MAIL BOX 
1825 034336 1$: 
1844 0 36 004737 041532 JSR PC. TSTPRP sPREPARE DEVICE FOR TEST 
0 0541 -WORD 054130 : OR AS FOLL 
: ONTROLLER & SELECT DEVICE 
: cL RATION 
*PACK AC F VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF an OR 'PIP’’ IS SET 
| VERIFY BRATI 
034344 0004 
0 00 40 
134350 1 D BY TSTPRP SUBROUTINE 
000137 034634 
1845 ¢ 2s: 
1 12737 001446 
1 12737 001420 = 0 
1 12737 15 001412 FSET COMMAND IN BUFFER 
1 0} 7 1545 :R2 POINTS TO REGISTER TABLE 
1 30 04 1 34 sWRITE REGISTER INDEX TABLE 
1852 seas 1157 
1 33 » 1127 :WRITE TERMINATOR 
1 737 043016 360 WRITE RE REGISTER(S) WITH PUT SUBROUTINE 
0344 5 :GO TO 3$ IF NO ERROR 
04434 10400 TERROR # DEFINED BY PUT SUBROUTINE 
34634 10$ : 10$ I 
1855 ¢ ? 2 3$: PC GETSTS ; FOR STATUS FETCH 
7 04 “a C. TIMOUT : FOR OFFSET TO COMPLETE 
1 treet oF 7 5 001412 #SEEK!GO,RMCS1O ; S 
1 5 ’ y+ 1 7 Oo ee a T > R 
1 134466 112737 1546 #200, PUT INX+1 
1 ; 7 16 JSR PC PUT I 
; ie BR 
134502 4 NOP 
toss 034634 OP «O08 
1862 ¢ 1 S$: 





BE FE 
é 


cmt 
ee 
AP 
FRSSRNS- 


ss 


gees 


yu 


1874 


re 
its 


roe . . = . . ° e . 


= 


1880 


L 12 
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sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


:GO0 TO TIMOUT SUBROUTINE 


GO READ mee stents: WITH GET SUBROUTINE 
:G0_ TO 6$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:G0 TO 10$ IF ERROR 





GO CHECK FOR PRIMARY ERRORS 
G0 TO 7$ IF RROR 
sRETURN HERE IF ERROR 
RROR # DEFINED PRIERR SUBROUTINE 


BY 
60 BACK FOR MORE ERROR CHECKS 
G0 TO 10$ IF ERROR 


FY RESULTS OF SEEK OPERATION 
IF NO ERROR 

SRETURN or IF ERROR 

SERROR # DEFINED BY SEKSTS —_— 

3G0 BACK FOR MORE ERROR CHECK 

360 TO 10$ IF ERROR 


K ANY ERRORS NOT MASKED 
RMER1 










+60 VER 
TO 






Y CMPERRSTS SUBROUTINE 
ERROR CHECKS 


ECONDARY ERRORS 


F ERROR 
# DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 


PI TITTIIT IIIT ITI TTT titittilitiiiiiiiiitiiitititiiiiiiitiii ts 


043370 
042546 JSR PC .GET 
BR 
NOP 
EMT 
034634 es JMP 10$ 
043564 : JSR PC ,PRIERR 
BR 7$ 
NOP 
EMT 
JSR PC,a(SP)+ 
034634 eo = 
051206 ; JSR BC .SEKSTS 
BR 
NOP 
EMT 
JSR PC a(SP)+ 
034634—i« wk JMP 10$ 
050562 . JSR PC, CMPERRSTS 
7 .WORD NDTMSK 
“WORD DPE 
BR 9$ 
NOP 
OcR CéPCa(SP)¢ 
034634 ii JMP 10$ 
044416 : JSR PC, SECERR 
: BR 10$ 
NOP 
EMT 
JSR PC,a(SP)+ 
10$: 
‘ STEST 57 
18157 
11 MoV #STACK; SP 
os. « fee 
$$ 001226 MOV #57,.$TESTN 
052466 JSR PC,CNTCLR 
BR 1$ 
NOP 
5354 SMP «208 
tate 1$: MOV ooF a3 


ST 
SRAEAEREAEAAAAREEAREREEREEEEREAAEEEAERAEEEAARERERARAAEKRAEERKAARAREREAREE 


sSCOPE CALL 
sSTART OF TEST 
sae inithie” Apee POINTER 


sR 
3(R1) = DEVICE BEING TESTED 
;7SET TEST NUMBER IN APT MAIL BOX 


260 ISSUE png CLEAR 
:G0 TO 1$ IF NO ERROR 
: RETURN HERE IF ERROR 
non Oke Te DEFINED BY SUBROUTINE 
6p TO 20$ IF ERROR 
= SAMPLE COUNT FOR 18 BIT MODE 








SEQ 0154 


} 





ee ee ee ey —— 
OOOOOO0OO0OOO0O oO 
3 at ot =3 
SOMNANP Ue i) 
COOOOOOOOSSSOOOSSCOSOSSSOSO OOOoooCOoOOo 


IMMA AAA MA 


eed ceed ceed emnd cmd aod cavd ond) cod amd axed end cond amd con amd and 


SRENSKSRSSENOKESSORN 


gpons RM8O FCTNL PT1 
7 LOOK AHEAD TEST 
ta aT a 
ie | : 
1 0347 1 
1885 7 127 
1 740 1127 
1 744 «11 
1886 750 (11 
1 754 1127 
1 0 760 1127. 
i 34764 004 
1 35 0 a 4 
Sire Bee 
035 194000 
P 5 0001 
1 127 
ie Sas gare 
1 03501 777 
136 4 1774 
1 2 6 sa08 
ss 137 
1901 
ton8 0350352 012737 
1904 5040 004737 
5044 04 
5046 o002 40 
5050 
52 000137 
1905 56 
: 056 004737 
1908 3002 see Y 
Nae 
104 
0001 


M12 
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144466 


001412 


3$: 


4$: 
5$: 





#0 ,RMOFO 






-RMDCO 


RMDAO 
#SEARCH,RMCS10 
#PUTINX.R2 


#RMDA, (R )+ 
pont $B 2° 


renes (Ra) 


PC, 6. (R2)+ 
PC PUT 
3$ 


19$ 


PC. STIMER 
#B1T?ACLKADR 


3 START WITH 18 BIT MODE 
;CYLINDE 
3 SEARCH TRACK = 0, SECTOR = 0 
3SEARCH COMMAND 


:GO WRIT 
160 TO 3S 3 


:RE 
ERROR # 
360 TO 19$ IF ERROR 


:D0 2 CLOCK ee 
START CLOCK TIMER 
+ TIMER DONE ?? 


RE 

IF NO ERR 
HERE IF 
DEF 


yt A ‘s) WITH PUT SUBROUTINE 


RROR 
INED BY PUT SUBROUTINE 


“DEC “NUMBER OF CYCLES 
:CONTINUE IF NOT DONE 


sEXECUTE SEARCH COMMAND 


#SEARCH!GO,RMCS10 


PC PUT 
6$ 





;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 TO 6$ NO ERROR 


IF 
RETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 
19$ IF ERROR 


sWAIT FOR COMPLETION 


760 TO 


‘6 7 fe it ie cane WITH GET SUBROUTINE 
RROR 


RETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
360 19S IF ERROR 


FOR PRIMARY ERRORS 


s eve 
ANDD 
pee Se 


am 


ee 
one) 
ag CFP 


fia : 








BS 








: DEFINED BY 


F NO ERROR 
TURN HERE IF ERROR 


PRIERR SUBROUTINE 
ERROR CHECKS 







SEQ 0155 


Soosceo oooo 
SUNN NS 


see 


oo 
~™N 


Baer Sees SEES 


SEES SSFERSSSIASATNISSESS 
sess 


Rone 
eo eadeed 


7 


N 12 
































001444 17$: IT WSSEI,RMOFO § ;TEST lg BIT MODE W/ SSEI SET ? 


001000 
3 :BR 
1000 001444 BIS ASSEI_RAOFO =: SETUP FOR 16 BIT MODE W/ SSEI AND 
18$: MOV 4#33.,R3 {SET SAMPLE COUNT. 
6 JMP oS D0 AGAIN FOR 16 BIT MODE W/ SSEI 


CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-72 SEQ 0156 | 
157 OOK TEST 

1921 000002 10$: ADD #2,.R4 ZADVANCE STORAGE ADDRESS 

19 : DEC ALL SAMPLES TAKEN?? 

1924 000020 11$: CMP RMLA(RO) ,R2 *WAIT FOR CHANGE 

1925 BNE *YES!! 

19 : DEC R * TIMEOUT ?? 

19 BNE 11$ ‘NO 

1928 12$: 

EMT 352 

19 035354 JMP 0$ 

1931 -SET 18 BIT SAMPLE PARAMETERS | 

19 003500 i$. MOV #3s00 R2 R 

19 | MOV #30.,R3 ; 

19 1 104 MOV #BUFFER,R4 RG ESS 

1935 03521 010000 001444 BIT #FMT16,RMOFO 31S 

13 5224 BEQ ._ 14$ sBR 

i ¥ SET 16 BET SAP LAMMETERS 

1940 2 sitet MOV # 2; 2R3 Re 

1941 3 14$: MOV (R4)+,R5 °GE 

194 4 000100 ADD #100,R5 FOR 

1943 035244 CMP Rg R5 ; SHOUL 

1 3 BHIS 15$ :NO!! 

1945 CLR R5 “YES - ED 

3 & 15$: CAP RS (R4) 18 NEXT ECT?? 

1 § 001140 MOV eins sEXPECTED VALUE 

1 5 1142 MOV. (R4) ,SBDDAT sRE D VALUE 

1 5 EMT 353 

1 3 BR 19$ 

1 16$: DEC R3 sALL SAMPLES CHECKED?? 

5274 BNE 14$ :NO - TEST NEXT SAMPLE 

1 32737 010000 001444 BIT #FMT16,RMOFO §; TEST DONE FOR 16 BIT MODE ? 

i 1004 BNE 17$ :BR IF YES 

i 12737 010000 001444 MOV #FMT16,RMOFO  :SET 16 BIT MODE AND 

0 : BR 18$ ;D0 AGAIN FOR 16 BIT MODE 

73 B 

1 19$: 

MOV (SP) +, ERRVEC+2 -:POP STACK INTO ERRVEC+2 

ae MOV (SP)+,ERRVEC | ::POP STACK INTO ERRVEC 

! + eeeetenneeeeeeneeneneeereeeneeeeeeenenecenteneeeeeeeeneeeeeeeee 
= STEST SEARCH ON CYLINDER Ws : 
ee ee 


SCOPE sSCOPE CALL 
NOP sSTART OF TEST 


B 15 
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60 


. 


1972 035402 
038206 





eee come ek eed ced cee cee ceed eed eed eed ed etd od 


035410 
035412 
035414 
03541 
973 0354 
974 0354 
975 035426 
os te 
gs sts 
oS Sith 
9 4 
9 30/8 
55 
351 
55 
55 
524 
BB xs 
1 5534 
sees 
544 
ms 


ERS 


1994 1 


1 
7 
004737 
54130 


So 


nN 
4 
L  ] 


- 
4s 


= =3 2909000 

eed cnnd cb ceed ny oct end ceed owed eds aod 
WUWNS 
NNINNNMNNNNNNNW 


MPOPMIMONIMININININYINYNY 


3 
Soin 


33 
se 


O 
N 


737 
04 


ios 
. 


SEARCH ON CYLINDER 


127 11 
137 H 308 
1 001226 


035776 
000037 
000000 
000000 
BEN 
001545 
000033 
000032 


000200 
042462 
043016 


035776 
643370 


042546 


035776 
043564 


035776 
051206 


On 078 
31 001412 5$: 


1$: 


es: 


3$: 


4$: 


#STACK,SP ZINITIALIZE STACK POINTER 
SBASE ,RO :RO = UNIBU 

TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 

#60, $TESTN ‘:SET TEST NUMBER IN APT MAIL BOX 
PC TSTPRP :PREPARE DEVICE FOR TEST 

054130 *TASK DESCRIPTOR AS FOLLOWS: 


*VE 
“PACK ACKNOWLE 

:VERIFY PACK ACKNOWL 
*RECALIBRATE IF ‘SKI 
VERIFY RE 







Pee pth 








Ow 
CLEAR CONTROLLER & SELECT DEVICE 
RIFY CONTROLLER CLEAR OPERATION 
AC DGE IF VOLUME NOT VALID 


‘ OR *PIP’’ IS SET 


1$ :G0_ TO IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
12$ :G0 TO 12$ IF ERROR 








#31.,.R3 3R 
#0,RMDCO = CYLINDER 

;RMDAO “TRACK = 0 SECTOR 
#FMT16!SSEI ,RMOFO - SET 
S €S10 ;SEEK C 


sFOR SEEK TO CYLINDER 0 





*RETURN HERE IF ERROR 

:ERROR # DEFINED BY PUT SUBROUTINE 
12$ "GO TO 12$ IF ERROR 
PC, TIMOUT 
PC,GET 
3$ 
12$ 
PC,PRIERR 
4$ 

ERROR 

; D BY PRIERR SUBROUTINE 
PC,a(SP)+ *60 BACK FOR MORE ERROR CHECKS 
12$ :60 TO 12$ IF ERROR 
PC,SEKSTS 60 VERIFY RESULTS OF SEEK OPERATION 
5$ :GO TO 5$ IF NO ERROR 

“RETURN HERE IF ERROR 

“ERROR # DEFINED BY SEKSTS SUBROUTINE 
PC.a(SP)+ *60 BACK MORE ERROR CHECKS 


sSETUP FOR STATUS FETCH 
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO0 TO eo NO ERROR 


3 = ne la SECTOR ADDRESS 
= 


= 0 
6 BIT MODE W/ SSEI 
sSETUP REGISTER INDEX TABLE 





SEQ 0157 


T60 


1995 0356 ? 


Sua Bours 
Nm 


ENSO 


3 
en 


338 


eS 


COOooo SOOOOOOSSOSSOSOSOOSSS OOo SOOoOoOoOoOoOOoOoOO 
WWW 
33 


eg 
SS33 
&n 


MMMM 
& 


SNS 
WU & 
SEES 


MMMM MIA a 


SRSTTSS 


737 


043016 


035776 
043370 
042546 


035776 
043564 


035776 
056624 


035776 
050562 


035776 
044416 


035776 


001420 
001420 


t 
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SEARCH ON CYLINDER 





13 
















JSR PC PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 6$ : :G0 TO 6$ IF NO ERR 
NOP : 3RE TURN HERE IF ERR 
EMT OR # DEFINED BY PUT SUBROUTINE 
“- JMP 12$ | °60 TO 12$ IF ERROR 
JSR PC, TIMOUT :WAIT FOR SEARCH TO COMPLETE 
JSR PC,GET 260 RE REGISTER(S) WITH GET SUBROUTINE 
BR 7$° :GO0 TO 7$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT “ERROR # DEF INED BY GET SUBROUTINE 
™ JMP 12$ :GO0 TO 12$ IF ERROR 
JSR PC, PRIERR :G0 CHECK FOR PRIMARY ERRORS 
BR 8$ :GO TO 8$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ K FOR MORE ERROR CHECKS 
" JMP 128 °60 TO 12$ IF ERROR 
JSR PC, SCHSTS 60 0 VERIFY SEAR SEARCH OPERATION 
BR 9$ NO ERR 
NOP < RETURN HER E IF ERROR 
EMT ‘ERROR # DEFINED BY SCHSTS SUBROUTINE 
JSR Pc a(SP)+ 7GO0 BACK FOR MORE ERROR CHECKS 
2 JMP 12$ *GO TO 12$ IF ERROR 
JSR PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
.WORD NDTMSK “MASK FOR RMER1 
“WORD DPE “MASK F 
BR 10 *GO TO 1 
NOP ¢RETURN IF ERROR 
EMT “ERROR # NED BY CMPERRSTS SUBROUTINE 
JSR PC ,@(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
aa JMP 1 3 760 TO 12$ IF ERROR 
JSR PC, SECERR :GO0 CHECK FOR SECONDARY ERRORS 
BR 11$ *GO TO 11$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT cE # DEFINED BY SECERR SUBROUTINE 
gan PC ,@(SP)* *GO BACK FOR MORE ERROR CHECKS 
os JMP 1 *GO TO 12$ IF ERROR 
INC RMDAO Z INCREMENT SECTOR ADDRESS 
CMP R3,RMDAO :DONE ALL SECTORS?? 
BHIS 5$ :NO!! 
12$: 
{ RAAAEAAREAERARAAAEEEREREEEEEAAAEAEEAKAERERARERERERERERAREKERAEERE 
TEST 61 SEARCH OFF CYLINDER 
*REAKAAAEAARAAAARAARAARAAACAAATAEAARAAAAARAARAARARARARAAEERERAREEKEERAREAK 


+8161: 


NOP 
MOV #STACK sP 
MOV SBASE ,R 


: SCOPE 

:START OF TEST 

3 INITIALIZE STACK POINTER 
sRO = UNIBUS ADDRESS 


SEQ 0158 


Dean's ana etic 
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T61 SEARCH OFF CYLI 


i SE SH) i 
16 Osenes SoA 14 041532 


enh owed cosd 


NOUN -$OOan 


a 
22 
Se 


33 
S 
g 
© 


é 
24 4 

~ 

y 

= 





001226 


001420 
001444 


001412 


1$: 


2$: 


3$: 


4$ 


5$: 


6$: 





MOV 
MOV 


JSR 
. WORD 


TSTQUE ,R1 
#61,$TcCSTN 


054130 


1$ 


13$ 








13$ 

PC, TIMOUT 
PC ,GE* 
4$ 


13$ 
PC PRIERR 
$$ 


PC.a(SP)+ 
188 


apenas 


PC,a(SP)+ 
158 


ararie!s SE1,RMOFO 


& R 
#SEEK'GO,RMCS10 : 


3(R1) = DEVICE BEING TESTED 
:3SET TEST NUMBER IN APT MAIL BOX 


3 PREPARE oe vues ‘ rae 
3; TASK ary PTOR FOLLOWS: 
CLEAR SELECT DEVICE 
SVERIFY CONTROLLER CLE LEAR OPERAT! 


ON 
E VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
ZRECALIBRATE IF "'SkI'' OR PIP" IS SET 
;VERIFY RECALIBRATION 
To 18 IE No 
:RETURN HERE IF ERROR 
ZERROR # DEFINED BY TSTPRP SUBROUTINE 
60 TO 13$ IF ERROR 


-START AT TRACK = 0, SECTOR = 0 
“SET 16 BIT MODE W/ SSEI 

= SEARCH CYLINDER 

<RS = SEEK CYLINDER 

:LOAD SEEK C 

sLOAD CYL LINDER ADDRESS 

sR2 POINTS TO REGISTER TABLE 

: SETUP REGISTER INDEX TABLE 

‘FOR SEEK COMMAND 
















; TERMINATE peer 
SETUP FOR STATUS 

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO IF NO ERROR 

HERE IF ERROR 

: ERROR # DEFINED BY PUT SUBROUTINE 
GO TO 13$ IF ERROR 


sWAIT FOR SEEK TO COMPLETE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO0 TO 4$ IF NO ERROR 


Se Ge Ge Ge Ge Be Be 


sRETURN HERE 

sERROR # DEF 

3:60 TO 13$ I 

3:60 cree FOR PRIMAR 

:60 TO 5$ IF 

SRETURN HERE 

sERROR # DEF BY PRIERR SUBROUTINE 
3:60 BACK_FOR CHECKS 

3:60 TO 138 IF 

3:60 venic’ RE SEEK OPERATION 
360 TO IF 

sRETURN HERE 

sERROR # DEFINED BY SEKSTS SUBROUTINE 
:G0 BACK FOR ERROR CHECKS 

:G0 TO 13$ IF ERROR 


SEQ 0159 





E 15 
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161 SEARCH OFF CYLINDE | 
a00084 MOV “LOAD CYLINDER ADDRESS 
is § 000081 001412 MOV Ree Anen iGO. RMCS10 “LOAD SEARCH COMMAND 
16 JSR PC. »PUT :60 WRITE RE REGISTER(S) WITH PUT SUBROUTINE 
BR 7 :GO TO F NO 
i iain y"SC en gy"Pursusnouin 
636440 “ty JMP 13$ 760 TO 13$ IF ERROR 
ae : 004737 043376 : JSR PC, TIMOUT :WAIT FOR SEARCH TO COMPLETE 
036272 004737 042546 JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
036276 04 BR BS :GO TO 8$ IF NO ERROR 
3302 194000 EMT BeNOR SBEFINED BY GET SUBROUTINE 
. 5631 000137 036440 - JMP 13$ 7 760 TO 13$ IF ERROR 
$029 6310 004737 043564 : JSR PC -PRIERR :60 CHE Ck FOR SRIMARY ERRORS 
6316 240 NOP SRETURN HERE IF ERROR 
16320 1 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
63. JSR PC .@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
. ° 63 137 036440 ane JMP 1 :GO TO 13$ IF ERROR 
$08 163.30 737 056624 ; JSR PC, SCHSTS 360 VERIFY SEARCH OPERATION 
1363. 05 BR 10$ 360 TO 10$ IF NO ERROR 
03635 40 NOP ‘RETURN HERE IF ERROR 
3634. EMT lis SERROR # DEFINED BY SCHSTS SUBROUT INE 
56: O08 JSR Pc ,a(SP)+ °GO BACK FOR MORE ERROR CHECK 
z05e D36544 137 036440 mats JMP 1 *GO TO 13$ IF ERROR 
136350 737 050562 — PC.CMPERRSTS CHECK _ANY ERRORS NOT MASKED 
936354 115760 -WORD ND IMSK 3MASK FOR RMER} 
th’ > . 1 WORD me 
' 5366 0 11 
Nese 736 ISR —PC,a(SP)+ 
036570 000157 036440 a = 138 
$085 036374 737 044416 «JSR AC .SECERR 
Lonemtatt we 
ae ee SS wcsacseye eNO Pinot Eat nano 
03¢ 19 000157 036440 wa 138 £60 TO 138 IF ERROR 
38 036414 005303 "DEC RS ;DECREMENT SEARCH CYLINDER 
38 36 5 3 14 INE RADAD <TACREMENT SECTOR. ADDRESS 
! 564.04 7 oO1450 000037 cmp RMDAO .#3% i DONE ALL SEC TORS?? 
D3¢ 0001 ; 036070 JMP 2$ “DO NEXT SECTOR 
936440 13$: 
FF AAAAARAREAAAARAERREREEEEREREERRERAAARRARRRRERREEKERAREREEEAEEEREKE 
s*TEST 62 SEARCH INVALID SECTOR 


f RARAAAEAAAEAAAEAAERAAERAAAEAAERERERARAEAEEEAAREKERAERERRARAREREREREREEE 








— 


Pe) 
CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN~82 16:24:51 PAGE 13-77 SEQ 0161 
T62 SEARCH INVALID SECTOR 


03644 TST62: 










0 4 SCOPE :SCOPE CALL 
40 NOP ‘START OF TEST 

0 1 1100 MOV #STACK ,s° SINITIALIZE STACK POINTER 

036450 0137 1276 MOV :RO = UNIBUS ADDRESS 

2 54 013701 001 MOV BASE A RI 7(R1) = DEVICE BEING TESTED 

12737 001226 MOV ree, STESTN :3SET TEST NUMBER IN APT MAIL BOX 

ire: 0 737 041532 JSR PC. TSTPRP :PREPARE DEVICE FOR TEST 

0 007430 .WORD 054130 ; TASK DESCRIPTOR AS 





AS FOLLOWS: 
CLEAR CONTROLLER @ SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF "'SkI'’ OR ‘PIP’ IS SET 
tia! 10N 


;GO TO IF 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 12$ IF ERROR 


xR 
WEES 
& 
4 
t  ] 
3 @ 








1$: 
12737 001444 ;SET 18 BIT FORMAT 
12737 001446 LINDER = 0 
12737 36 001420 “FIRST INVALID SECTOR = 30. 
12737 1 001412 : -SEARCH COMMAND 
1270 1545 sWRITE REGISTER TABLE FOR 
11272 34 + * COMMAND 
1127 32 
1127 R2)+ 
11 anncs{ (a)+ 
11 : TERMINATE TABLE 
0047 ‘i PC, eéTsts" ‘SETUP STATUS FETCH 
737 052466 : PC,CNTCLR 360 Issue CO CONTROLLER CLEAR 
3$ NO ERROR 
40 * RETURN MERE IF ERROR 
“ERROR R DEFINED BY SUBROUTINE 
137 037040 “, 12$ 760 TO 12$ IF ERROR 
737 043016 ? pC .PUT :60 WRIT ade WITH PUT SUBROUTINE 
4 *RETURN HERE IF ERROR 
ZERROR # DEFINED BY PUT SUBROUTINE 
137 037040 aa 12$ :60 TO 12$ IF ERROR 
004737 043370 ; PC, TIMOUT sWAIT FOR GO TO RESET 
7. 737 042546 PC,GET :60 GO READ REG REGISTER(S) WITH GET SUBROUTINE 
56 36 04 5$° NO ERROR 
b < OE TURN HERE IF ERROR 
. ERROR DEFINED BY GET SUBROUTINE 
| 137 037040 i 12$ 0 12$ IF ERROR 
5650 7 043564 PC PRIERR 
7. aan cms BR 6$ 
: EMT 





RNDAO RMSO FCTNL PT1 
SEARCH INVALID 


OO ™ 
cod 


a) 


SOOSSS9S00C0CO 
~ OP ( 
S232 
ROO 


Sanaa 
& 
So 


1ARAAARAARAAAC 
SN 


PASSSSV PBS 
eee 


Nn 
FON 
™N 


emmd west cunt) cond mech mcd ecb und coh eed cet 
wash 
ss } 
bo ) 
~ 


e 
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SECTOR 


037040 
056624 


037040 
060210 


037040 
050562 


037040 
044416 


037040 
14 
14 


010000 


3 


ic 


041532 


000100 
001444 


1444 
1420 


001226 


JSR 
JMP 


JSR 


JSR 


& €.4. ee 
53% #238755 


= 
% 


10$: 


a2 3 


© 
a 





©. @w 
gesz— 


11$: 
133: 


PC .a(SP)+ 
138 


PC,SCHSTS 
7$ 


PC ,a(SP)+ 
138 


PC ,STCDRVSTS 
8$ 


PC,a(SP)+ 
138 

PC, CMPERRSTS 
AE !NDTMSK 
OPE 

9$ 
PC,a(SP)+ 
138 


— 


—" 





4 


G0 BACK FOR MORE ERROR CHECKS 
G0 TO 12$ IF ERROR 


+ oR a A PMO E OPERATION 










:60 TO 

3G0 CHECK FOR CHANGES IN DRIVE STATUS 
3:60 10 IF NO ERROR 

sRETURN HERE IF ERROR 

ZERROR # DEFINED BY STCDRVSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:60 TO 12$ I 

7CHECK ANY ERRORS 





wT 
S 





23. 


2 
ER 






> Te) 







4 
"Mm" 
preny 

F ts 


D BY CMPERRSTS SUBROUTINE 
ERROR CHECKS 





T_ SECTOR ADDRESS 
- TEST NEXT SECTOR 
s TEST iy BIT MODE YET ? 


BIT MODE 
sSET_ INVALID SECTOR = 31. 
sTEST NEXT SECTOR 


5 FE ARARARARAAAARARAAAEAREEEERERAAAEARERAERAERAAREEERAEAERAREREREERERR 


EARCH INVALID TRACK 


oRRERREREEEAEEREREEEREREERERARAARERERERERERREREREERERERERERERERE 


3 *TEST 63 
18163: 


Hes ar 


rate, 
0s130 


“START OF TEST 

* INITIALIZE STACK POINTER 

‘RO = UNIBUS ADDRESS 

3(R1) = DEVICE BEING TESTED 
*:SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 


SE@ 0162 


a 


ais eee eee mmm —_—— oe -- 


CZRNDAC RMBO FCTNL PT 


163 SEARCH INVALID T 





RARAR ADD 
=P POC 





ast 


~ 
St | 


a ery 
S=S55533 
Os Pe IININININT 


J 


oS 

EStese § 
™m 

~ —- © 


. 86 es 
7 82 
Ss Ss & BS 


043370 
042546 


037420 
043564 


037420 
056624 


037420 


1$: 


3$: 


5$: 
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1$ 


11$ 






a2) 
#200 (R2)+ 


Pe -oETSTS. 
PC, CNTCLR 
3$ 


11$ 
PC PUT 
4§ 


11$ 

PC, TIMOUT 
PC GET 

$$ 


11$ 
PC .PRIERR 
6$ 


PC a(SP)+ 
11$ 


~ atta 


PC,a(SP)+ 
118 


#SEARCH!GO,RMCS10 
#0 ,,RMDCO 








CLEAR CONTROLLER & SELECT DEVICE 





‘VERIFY CONTROLLER CLEAR OPERATION 
SPACK AC IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOUL F aim 
sRECALIBRATE kL OR ‘PIP’ IS SET 
‘VERIFY 
760 TO 
*RETURN HE 
‘ERROR # DE ED BY TSTPRP SUBROUTINE 
:60 TO 11$ 

“SEARCH COMMAND 
:CYLINDER = 0 
“LAST TRACK, SECTOR = 0 
: SETUP FIRST INVALID TRACK 


3SET 16 BIT FORMAT 
SWRITE REGISTER INDEX TABLE 


; TERMINATE TABLE 


260 IS 











CONTROLLER CLEAR 
:60 TO IF NO ERROR 


;RETURN HERE IF ERROR 
R DEFINED BY SUBROUTINE 
£60 TO 118 IF ERROR 








: RETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 
760 TO 118 IF ERROR 


sWAIT FOR GO TO RESET 







+60 READ REGISTER(S) WITH GET SUBROUTINE 
S$ IF NO ERROR 





RE IF ERROR 
FINED BY GET SUBROUTINE 
1$ IF ERROR 






se 385 


FOR PRIMARY ERRORS 
NO ERROR 


ERROR 
D BY PRIERR SUBROUTINE 
ERROR CHECKS 


gave aS 
=} 
So 

o 

= 

a) 

— 

wm 

fot 

Ze 


+60 WRIT ripe gett WITH PUT SUBROUTINE 
0 IF NO ERROR 


ES ES TT TT 


ee ae en er ee 


CZRNDAO RMB8O FCTNL PT1 


T65 SEARCH INVALI 


3139 7314 
7358 
735 
say : 
46 
735 
214 a 
s128 7 360 
i+? 
737 
737 
144 4 
is Sea 
‘| if 
13 7420 
151 
74 
ne 
74 
426 
4 
0374 
7440 


4 

7%4 

7 
a 
138 Ss 
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TRACK 


060210 


037420 
050562 


037420 
044416 


037420 


001421 
001421 


037176 


037774 
31 


000200 


001226 


7$: 


10$: 


11$: 





qj. 
BS5u 


5% % 


ec. C€.C..77 
o 


¢... ©. fT cc... Cue Cae FFF 
342973 #238%5 


INCB 
I 


J 


I 13 


ele gata 


PC,a(SP)+ 
118 


PC 
ND TMS 
DPE 


PC 
11$ 


—_— 


a(SP)+ 


PC ,a(SP)+ 
11$ 





CMPERRSTS 
K!IAE 


RMDAO+1 
RMDAO+1 ,#128. 
11$ 





HANGES IN DRIVE STATUS 


=—- 
a 
OR 
a 
$ 












3:60 

360 TO i ERROR 

ZRETURN HERE IF ERROR 

sERROR # DEFINED BY STCDRVSTS SUBROUTINE 
360 BACK FOR MORE CHECKS 

:G0 TO 11$ IF 

sCHECK ANY ERROR 


. 


83. 
‘ 






Sams 


CHECKS 


ane 






ee 
ww" 


ERR SUBROUTINE 
CHECKS 


DRESS 
TRAC 


f EURRRAARAAAERAEAAAAAARAERETAARARAERAEAARAREARAEREREREAENAEREEES 


SEARCH INVALID CYLINDER 


© SEEAERAAEAEREAEAAAERERAAEEEEEAEAAREAERAAARERARARREERAARERRARAEEEEKKKEE 


TST64 


seTEST 64 

















:SCOPE CALL 
“START OF TEST 

#STACK SINITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 

TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 

#64, STESTN [SET TEST NUMBER IN APT MAIL BOX 

PC TSTPRP :PREPARE DEVICE FOR TEST 

0541 *TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
*PACK A DGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
*RECALIGRATE IF ‘SKI’ OR 'PIP’' IS SET 
*VERIF TION 

1$ 360 T 
“RETURN HERE IF 

ia “ERROR Y TSTPRP SUBROUTINE 

#SEARCH! GO RMCS10 -SEARCH C 

#561.,RMDCO © ;START AT FIRST INVALID CYLINDER 

#0, RMDAO “TRACK = 0, SECTOR = 








SEG 0164 


J 13 























CZRNDAO RM8O FCINL PT1 MACRO V04.00 28-JAN-c. 16:24:51 PAGE 13-81 SEQ 0165 
T SEARCH INVALID CYLINDER 
158 7 MOV #FMT16,RMOFO  ;SET 16 BIT FORMAT 
15 MOV #PUTINK,R [WRITE REGISTER INDEX TABLE 
160 MOVB &#RMOF,(R2)+ 
161 MOVB § #RMDC.(R2)+ 
16¢ MOVB § #RMDA.(R2)+ 
163 MOVE anncs| (R2)+ 
1 MOVB #200. (R2)+ 
165 346 ” JSR PC,GETSTS sSETUP STATUS FETCH 
S169 9 755 737 052466 JSR PC, CNTCLR :60 ISSUE CONTROLLER CLEAR 
7556 BR 3$ 7GO TO 3$ IF NO ERROR 
v 56 40 NOP SRETURN HERE IF ERROR 
756 EMT 7£ R DEFINED BY SUBROUTINE 
ail 137 037774 - JMP 11$ 760 TO 11$ IF ERROR 
2169 037370 737 04301 JSR PC PUT 
7% BR 4$ 
757 40 NOP 
1 EMT 
- 000137 037774 sa JMP 11$ 
ie 606 004737 043370 JSR PC, TIMOUT 
1 612 006737 042546 JSR PC,GET : ) WITH GET SUBROUTINE 
ee 0004 BR 5% :G0 TO 
40 NOP : RETURN 
1 EMT ; T SUBROUTINE 
137 037774 JMP 11$ : 
217% 9 7 5$: 
175 037 004737 043564 JSR PC .PRIERR : ERRORS 
037 5 BR 5% : 
037 NOP : 
137640 1 EMT : PRIERR SUBROUTINE 
037 JSR PC .a(SP)+ 60 RROR CHECKS 
; 137 037774 | JMP 118 :60 
3178 4) 6$: 
177 03765C 737 056624 JSR PC.SCHSTS :G0 VER 
1374 05 BR :60 TO 
937656 NOP :RETURN 
Kibee OcR Cépta(SP)¢ NE 
179 O bbl 137 037774 i JMP 118 760 
3138 7 737 060210 JSR BC .STCDRVSTS 260 IN DRIVE STATUS 
93767 BR 3:60 
37676 40 NOP RE 
03770 oor PC.a(SP)+ > OEM CRS —_ 
a! 14 7 137 037774 _ JMP 11$ : 
sig ; 19 004737 050562 JSR PC, CMPERRSTS 
144 4 3 . WORD 1AE IND TSK 
037720 0 BR 9$ 
IS dé & NOP 
EMT 
JSR PC, a(SP)+ 


— a ee + 


owes -- = 


CZRNDAO RAMBO FCTINL PT1 
T SEARCH INVALID CYLINDER 


000137 037774 
el 044416 


9$: 


1 037774 


ic 1446 002000 
1 ; 037552 


10$: 


ak 





11$: 


SYUVVUNY 
383% 


JMP 
JSR 
BR 

NOP 
EMT 
JSR 
JMP 
INC 
CMP 


BHIS 
JMP 


SSTEST 65 


SEREAAEAAEAEAAEARARAARAAEATAEAARAREAARAAEKEARARRARARRAREAERAEREARKAKERKKEKE 





1$: 


—~ “= 
NMNVNMNNNVNN 


—~ 





mae oteed weet nen eh wed cad aah emt 


1$165: 


SCOPE 
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11$ 
PC SECERR 
68 


PC.a(SP)+ 
118 

RMDCO 
RMDCO,#1024. 
11$ 

2$ 


{ 


#STACK, SP 


SBASE 
TSTQUE ,R1 
#65, STESTN 


-—" 


Osé 








:GO TO 11$ IF ERROR 


GO CHECK FOR SECONDARY ERRORS 

:G0 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

;ERROR 8 pe BY SECERR SUBROUTINE 
FOR RROR CHECKS 


BACK 
60 TO 11$ IF ERROR 





: INCREMENT CYLINDER ADDRESS 
+ ye a CYLINDERS ? 


-STEST NEXT INVALID CYLINDER 


OTT TT TTT ETTT TTT ETT TT TTT TTT CCITT TTT TCT TTT TET TTT 


IVC SEARCH TEST 


sSCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 
IBUS ADDRESS 





= UN 
=(R1) = DEVICE BEING TESTED 
73SET TEST NUMBER IN APT MAIL BOX 


Tack Ge ee vite FOR TEST 
RIP FOLLOWS: 

SELECT DEVICE 
CLEAR OPERATION 
VOLUME NOT VALID 
OR “PIP’’ IS SET 









= DMD 
WRITE RMAR1 VIA PUT. SUBROUTINE 
TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
760 TO IF ERROR 


Haat piA STIC MODE 


DMBAaBA 





CYL 
a : Ry SECTOR = 0 
*18 BIT FORMAT 

/RACS10 “SEARCH COMMAND 
sLOAD INDEX TABLE 


SEQ 0166 


Ui 
? 


ann 


es 
= 


L 13 
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SEQ 0167 





3 MOVB (fg) 
i (R2)+ 
R2)¢ 
JSR 131 
04301 JSR :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 3$ IF NO ERROR 
cERROR # BEEINED BY PUT SUBROUT INE 
040354 i JMP 8$ *GO TO 8$ IF ERROR 
043370 ; JSR PC, TIMOUT sWAIT FOR GO TO RESET 
042546 JSR PC,GET :G0 READ REGISTER(S) | WITH GET SUBROUTINE 
BR 4$ :GO TO 4$ IF NO ERR 
ERT se seater SUBROUT INE 
040354 2 JMP ag *GO TO 8$ IF ERROR 
043564 : JSR PC. PRIERR 360 60 CHECK FOR PRIMARY ERRORS 
BR 5$ $ IF NO ERROR 
NOP : RETURN HERE IF ERROR 
EMT 3 ERROR # DEF INED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ BACK FOR MORE ERROR CHECKS 
040354 os JMP as : <60 TO 8$ IF ERROR 
010000 001400 ~~ BIT IVC. RMER21 :DID IVC SET?? 
010000 001140 #IVC,SGDDAT ‘EXPECTED STATUS 
001400 001142 MOV RMERSI,SBDDAT  :RECEIVED STATUS | 
167777 001142 BIC civ: -SBDDAT 
6$ ate 
050562 : JSR PC, CMPERRSTS 
O100%5 “UORD VC !DPE 
4 05 BR 1 
40 NOP 
1 EMT 
JSR PC,a(SP)+ 
137 040354 ‘ JMP 8$ 
3g5e 8 737 044416 j JSR PC, SECERR ONDARY ERRORS 
03 BR 8$ RROR 
4 RROR 
B00 EMT BY SECERR SUBROUTINE 
004 JSR PC,a(SP)+ ERROR CHECKS 
83 ee 
<3 SREAAAAEAREAEAAAAAAAKARAAAAREAAEREAARAARARAERAEARAEARAERARARARAARARKEKE 
“RTEST 66 ABORT SEARCH TEST 
5 *RERAEAAARAAAFTAEARERAAAEEAEAEAEAAAEARARARAARAKAARARAEARERARAEREEAEKRERE 
54 1S166: | 
54 ~ 3S OPE 
40 NOP ‘START OF TEST 
1 1100 MOV STACK SP ZINITIALIZE STACK POINTER 
137 1276 MOV “RO = 
04 701 001466 MOV SBASE AR R1 7(R1) = DEVICE BEING TESTED 





w 13 


ee EE 
_ 















CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-84 SEQ 0168 | 
T ABORT SEARCH TEST | 
28 040374 012737 000066 001226 MOV #66, STESIN z:SET TEST NUMBER IN APT MAIL BOX 
232 040402 737 041532 JSR PC. TSTPRP : PREPARE DEVICE FOR TEST | 
040406 O82) 3 WORD 054130 FOLLOWS: 
SELECT DEVICE | 
CLEAR OPERATION 
VOLUME NOT VALID 
VERIFY PACK cDoe IF WoL 
SRECALIBRATE IF ‘SKI’ OR "PIP" IS SET | 
‘VERIFY RECALIBRAT ION 
040419 009404 BR 1$ 760 TO 1$ IF NO E 
04041 00 40 *RETURN HERE IF ERROR 
040414 1 EMT ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
- Se 000137 040720 “ J 9$ 760 TO 9$ IF ERROR 
5 04 01 73? 04 00142 MOV 10 “SET UNSAFE ERROR 
235 ( 012737 000031 00141 MOV PSEARCHICO. RMCS10 -SEARCH COMMAND 
01 037 000000 001446 MOV #0, RMDCO sCYLINDER 0 
, or 7 000000 001420 MOV :SECTOR = 0, TRACK = 0 
32 1 702 00154 MOV ‘WRITE REGISTER INDEX TABLE 
39 04 112722 000034 MOVB 
40 11 000006 MOVB 
41 1127 14 
4¢ 11 MOVB 
4 76 1127 2 MOVB ; TERMINATE TABLE 
bb 04050 004 042662 JSR ‘SETUP FOR STATUS 
45 737 043016 JSR [GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
94051 000404 :GO TO 2$ IF NO ERROR 
14 000240 * RETURN HERE IF ERROR 
04 516 104 EMT SERROR # DEFINED BY PUT SUBROUTINE 
1520 000137 040720 s JMP 9$ 60 TO 9$ IF ERROR 
3578 140524 737 042546 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
1405 30 04 *GO TO 3$ iF NO ERROR 
053. 240 ‘RETURN HERE IF ERROR 
14 1 00 EMT sERROR # DEFINED BY GET SUBROUTINE 
055 137 040720 = JMP 9$ *60 TO 9$ IF ERROR 
rt 140542 032737 020000 001350 BIT #PIP,RMDSI :1S PIP SET?? 
50 04055¢ 1g1e BEQ 4s NO! ! 
31 40552 01 a 1140 MOV #0, $GDDAT ‘EXPECTED STATUS 
g | 560 013737 001 9 901142 MOV -RMDSI,SBDDAT —;RECEIVED STATUS 
53 040566 737 «157 114 BIC #*CPIP,SBDDAT 
54 08 4 106261 o EMT —s-«26 1 ) 
36 40576 004737 043370 JSR PC, TIMOUT ;WAIT FOR GO TO RESET 
2h JSR PC,GET :60 READ REGISTER(S) WITH GET SUBROUTINE 
BR 5$ | 0 5$ IF NOE 
NOP *RETURN HERE IF ERROR 
EMT : SERROR # DEFINED BY GET SUBROUTINE 
- a JMP 9$ 760 TO 9$ IF ERROR 
$525 JSR PC .PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 6$ :60 TO 6$ I 





NOP ; 
EMT sERROR # D 





040720 
2261 
2 060210 
040720 
5 050562 
65 040720 
see 044416 
a8 
6 
040720 
0407 
; 40 
1 1100 
a 1276 
13701 1466 
2270 740 012737 000067 
71 04074 7? 041532 
40752 341 


001226 
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T66 ABORT SEARCH TEST 








SEQ 0169 | C 











































P 
JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
6s JMP 9% :G0 TO 9S IF ERROR 
JSR PC,STCDRVSTS  ;60 CHECK FOR CHANGES IN DRIVE STATUS 
BR 7$ [GO TO 7$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT [ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
- JMP 33 360 TO 9$ IF ERROR 
JSR PC,CMPERRSTS |; CHECK ANY ERRORS NOT MASKED 
.WORD NDTMSK!UNS “MASK FOR RMER1 
“WORD DPE :MASK FOR RMER2 
BR *GO TO 8$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT [ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
“ JMP 9$ :60 TO 9$ IF ERROR 
JSR PC, SECERR :60 CHE FOR SECONDARY ERRORS 
BR 9$ IF NO E 
NOP ‘OO TURN MERE IF ERROR 
EMT SERROR # DEFINED BY SECERR SUBROUTINE 
a JSR PC,a(SP)+ °GO BACK FOR MORE ERROR CHECKS 
f RRAAAARAAAEERERERAEEREEEEEREAAEAERERERAERREARREERREKREERKREKEKKRKKK 
CRTEST 67 SEARCH AT OFFSET 
jjcae eenrenennneronnnesneneny mnmnnnnnangpnenenenenasseneecnenes 
SCOPE :SCOPE CALL 
NOP ‘START OF TEST 
MOV #STACK SINITIALIZE STACK POINTER 
MOV “RO = UNIBUS ESS 
MOV FeTaue Rt <(R1) = DEVICE BEING TESTED 
MOV yer StEStN *:SET TEST NUMBER IN APT MAIL BOX 
JSR PC. TSTPRP sPREPARE DEVICE FOR TEST 
WORD - 054150 *TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE * 
*RECALIBRATE IF SKI OR ‘PIP’ IS SET 
‘VERIFY RECALIBRAT TON 
BR 1$ 760 TO 1$ IF 
NOP “RETURN HERE IF ERROR 
EMT *ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 9$ [60 TO 9$ IF ERROR , 
MOV #0.RMDCO :CYLINDER = 0 
MOV RMDAO “TRACK = ECTOR = 0 
MOV #FRT16,RMOFO :16 BIT F 
MOV #OFFSET!GQ.RACS1O : COMMAND 
MOV #PUTINX.R sSETUP REGISTER INDEX TABLE 
MOVB = ARMDA, (R2) *FOR SEEK TO CYLINDER 0 





+ 
#RMDC , (R2)+ 





C 
T 


Ss i 
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7 SEARCH AT OFFSET 


QSSSVSSS = BSS 
PRRRRLLLLLLPLLAPLEPP 


SPES 


3 


MN mn Mr 
os 3s 33 
RRPLRPLLPLLPLPLLPLEPSELELOLLAPLALE LP 


RRRR 


ceed) coed eed ceed ed coed ceed coed co ceed ed eed 


ooo 
OVERS 


SONSSERESNSSRS KKSERNESE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


N3 





od mond coed cmcd ah ened ove enh ed won mud coed ee oe ed ceed weed eed et coed Sd eed ceed ed eed eed ed ed ee ed ed od eed od ond 


ROO 


: 
se 


041256 
056624 


041256 
050562 


041256 
044416 


4$: 


5$: 


7$: 





JSR 





srt es, 
#200, (R2)+ 
PC PUT 3:G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
2$ :GO TO IF NO ERROR 


[RETURN HERE IF ERROR 
[ERROR # DEFINED BY PUT SUBROUTINE 
9$ 760 TO 9$ IF ERROR 





PC,GETSTS sSETUP FOR STATUS FETCH 
PC. TIMOUT 
#RMCS1,PUTINX ;LOAD REGISTER INDEX TABLE 


#200, PUTINX+1 

#SEARCH!GO,RMCS10 “STORE SEARCH COMMAND 

PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO0 TO 4$ IF NO ERROR 

*RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 


a :G0 TO 9$ IF ERROR 
PC, TIMOUT :WAIT FOR SEARCH TO COMPLETE 
PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
5$ :GO TO S$ IF NO ERROR 
SRETURN HERE IF ERROR 
SERROR # DEFINED BY GET SUBROUTINE 
9$ 760 TO 9$ IF ERROR 
PC PRIERR 360 CHECK FOR PRIMARY ERRORS 
6$ 760 TO 6$ IF NO ERROR 
SRETURN HERE IF ERROR 
TERROR # DEFINED BY PRIERR SUBROUTINE 
PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
9$ :GO0 TO 9$ IF E 
PC,SCHSTS _—S_—ogxs GO VERIFY SEARCH OPERATION 
7$ :60 TO 7$ IF NO ERROR 
“ERROR # DEFINED BY SCHSTS SUBROUTINE 
pC .a(SP)* *60 BACK RROR 
PC.CMPERRSTIS 
ND TMSK : 
DPE “MASK FOR RMER2 





F ERROR 
INED BY CMPERRSTS SUBROUTINE 


s # 
PC .a(SP)+ 3GO0 BACK FOR MORE ERROR CHECKS 
os :G0 TO 9$ IF 
PC, SECERR 360 Sd FOR SECONDARY ERRORS 
9$ 3:60 TO IF NO E 
SRETURN MERE IF ERR 
sERROR # DEFINED BY SECERR SUBRGUTINE 
PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 


SEQ 0170 
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SEARCH AT OFFSET 
2304 041256 


9$: 


SEQ 0171 


v tS 
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END OF SUB-PASS ROUTINE 





1 .SBTTL END OF SUB-PASS ROUTINE 
§ | :THIS IS THE END OF SUB=-PASS ROUTINE. THIS ROUTINE IS USED TO 
4 S TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
£ *SELECT THE NEXT DEVICE 7£0R TEST. IF THERE ARE NO MORE DEVICES 
é TO TEST, EXIT IS MADE TO 'SEOP’ ROUTINE. OTHERWISE, RETURN 
i ‘IS MADE TO *READY' ROUTINE. 
9 041256 000004 SEOSP: SCOPE 
10 041260 240 NOP 
11 041262 01 1466 MOV TSTQUE ,RO :GET POINTER TO TSTQUE 
le 041 $6 7 2 ADD #2,R0 ‘ADJUST POINTER T2 NEXT DEVICE 
13 041 1466 MOV RO. TSTQUE : SAV VE POINTER TO TST 
14 041 7 10 TST (RO) Y MORE DEVICES FOR TEST ? 
15 041 14 ; BEQ is BR I 
16 041302 0001 007574 JMP READY :BR JUMP TO "READY ROUTINE 
V7 041 012737 001470 001466 1S: MOV #TSTQUE+2,TSTQUE alien yp MELA ze POINTER TO FIRST DEVICE IN 
19 
20 .SBTTL END OF PASS ROUTINE 


LRRRARAARRRERERERREERERERERERREREREREEERAEREREREREEEREERERERERES 

: SINCREMENT THE PASS NUMBER (SPASS) 

s*TYPE “END PASS A#XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yyyyy'’ 
2® XXXXX AND YYYYY ARE eon NUMBERS 

;*IF THERES A MONITOR GO TO IT 

:*1F THERE ISN'T JUMP TO READY 





#100000.$PASS ;:;DON'T ALLOW A NEG. NUMBER 
(PC)+ *LOOP? 


314 
314 40 
48 098 37 001116 STSTNM ZERO THE TEST NUMBER 
5037 001206 STIMES ¢3ZERO THE NUMBER OF ITERATIONS 
5237 1230 3: INCREMENT THE PASS NUMBER 
‘ 3 001230 
1 


65s 33TYPE ASCIZ STRING 
“GET OVER THE ASCIZ 
o13><15>/END PASS’ #/ 


Seeest 
—_ <8 
ops 





RE EF RRERE EF REELEEELELEEES 


4 

100 013746 001230 SPASS ,-(SP) : 3 SAVE SPASS FOR TYPEOUT 

404 106405 °260 TYPE--DECIMAL ASCII WITH SIGN 
4 5737 001126 SERTTL 33SEE IF ANY ERRORS THIS PASS 

41 1431 $G67142P 1F NO ERRORS TO REPORT 

41 401 041422 67$ SITYPE ASCIZ STRING 

420 b004 1 “GET OVER THE ASCIZ 

ane i678: "ASCIZ 7 TOTAL ERRORS SINCE LAST REPORT / 

464 013746 001126 MOV SERTTL,-(SP) z3SAVE, SERTTL FOR TYPEQUT 

470 1044 5 TYPDS | ::60 TYPE=- 5 EC IMAL ASCII WITH SIGN 
47 5037 001126 LR SERTTL *=CLEAR ERROR TOTAL 


| 
SDOAGN s2Yes 
(PC) +,@(PC)+ SSRESTORE COUNTER 
| 


RRRRK 


v 
—— 


RRRRF 


wow ad ed ...d and 


wn” 





SGT42P: 


SGET42: MOV 


SENDAD: 





SCRLF 
sifet 
PC, (RO) 


a(PC)+ 
READY 
=1 71 0 


Ec 14 


;TYPE CARRIAGE RETURN, LINE FEED 
33GET MONITOR ADDRESS 





S:ACT11 
: :RETURN 
S;NULL CHARACTER STRING 


SEQ 0173 


LL I EE CCE A eC oe 
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TEST PREPARATION MODULE 


iad hadatabatntabad 
CONAAL WN OOD NOUS WN OOOO UPwn— 


Wwn— 


Ww 


SHVRUARGN—O 


SRERERRE SELL 
Ss 


WS 


R 
% SESS x 


ee ee ee wwd end wn comd 





1 776 
00013 
013737 


ss 042456 


048506 


Gei570 000000 
2446 


001400 042460 


F 14 


-SBTTL TEST PREPARATION MODULE 





ER REPORT AN ERROR T 
2 SPECIFI 
: USING SUBROUTI 


CALL: 


2? 


NOP 
ERROR 
TASK/VERIFY DESCRIPTOR 





Com i @w 
Gores Geng feng Gene, 





Oomw 
ome Demy Aanack 





aww 
Deeg ree fn 
Se eee 
o~Co 
' 
aod 





wan 
eed fremg brag 


F cimnals 





ON) We 


Ooww 
Greg Greg bere 


TSTPRP: 


3 STORE a DESCRIPTOR one CLEAR USER'S ERROR CALL 


JSR PC, TSTPRP 
WORD NNNNNN 


HE USER IF AN 


SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
CLEAR CONTROLLER AND tw DEVICE 


HIS MODULE PREPARES THE a Gt gs FOR THE EXECUTION OF A TEST, 
ING T RROR IS_ DETECTED. 
ES ly, 2 BE PERFORMED, WHICH THE MODULE EXECUTES 





TASK/VERIFY DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY MODULE 


(RESERVED FOR DRIVE CLE 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 


RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR 


RECALIBRATE DRIVE 


VERIFY CONTROLLER CLEAR OPERATION 


(RESERVED FOR DRIVE CLEAR) 


VERIFY PACK ACKNOWLEDGE 


VERIFY RECALIBRATION 








THE USER 


a(sP) ,3 sSTORE DESCRIPTOR 
(SP) “MOVE SP TO USERS ERROR CALL 
a(SP) “CLEAR E 
#4, (SP) ‘MOVE SP TO NO ERROR RETURN 
PC,GETSTS ;SETUP TO READ ALL REGISTERS 
PC,GET “GET RMER2 
2$ ‘BR IF NO ERROR DETECTED 
1$ *GET OVER NUMBER 
0  HERROR DEFINED BY GET SUBROUTINE 
1S: #4, (SP) MEER ERROR TO USER AND 
| -2,a(SP) “GET ERROR 
2$: RMER21,40$ :GET RMER2 AND SAVE FOR LATER 





FF TRAAEAAAAEAEAAEERAAAEERERELEEREAEAEAAEEAERAERARERERAEERERRAERRERERERE 


SEQ 0174 


ee eee ee eee 


RF 


04 
04 
04 
04 


042456 





042456 


N>> 
=) 
Ge 
~ 
= 
= 4 


FRRREKE KEK 
—“ 


aed cnet eed asad cond aoc ead enh cond and aod cmd od owed amd aad 


$ 
? 
s 
65 
és 
; 
: 
i 
3 
: 
: 
s 
95 
; 


» “In 


4 
7 
if 
iB le 
1s Eas 
1 
1 
if 
17 737 010000 042456 
1 BSR SBR 
114 042016 004737 042546 


>SELECT eeyice —-* DEVICE AVAILABL 
4$ 
PC ,DEVSEL 
4$ 


3$: 
JMP 
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0 

#4, (SP) 

: aaa 
7$ 


E IF BIT 15 SET IN TASK 
3-1 hal DEVICE?? 


:G0 SELECT DEVICE 
NO ERROR - CONTINUE 


sERROR NUMBER FROM DEVSEL 
TRANSFER ERROR TO USER 


Ff AAAAAAAEARAARAAERAAREEEAERERAAKAERAEEAREREAREREKARERERERERRRERKRKEKE 





tts. 2359S 


PC.CNTICLR 
7$ 

6$ 

0 

e 3°65) 
35 


“CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 


;CLEAR CONTROLLER?? 
NO! ! 

:GO CLEAR CONTROLLER 
sCONTINUE - NO ERROR 


sERROR NUMBER FROM CNTCLR 
TRANSFER ERROR TO USER 


Ff ARAAAAREAARAEEAAAREREEEEAEEERAERAEREEKERRERKEREEAERAERARRAEERRKEKKE 


4$: 
BIT 
BEQ 
JSR 
BR 
BR 

S$: . WORD 
ADD 

7$: 


BIT 
BEQ 





sgiTe. 239 


PC GET 
108 


*%, (SP) 
8S ,(SP) 


— 
1 

0 

(SP)+ 


#4, (SP) 
lig. a(SP) 


;VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 


sVERIFY?? 

:NO!! 

:GO GET STATUS 

NO ERROR GETTING STATUS 


sERROR FROM GETTING STATUS 
; TRANSFER ERROR TO USER 


GO VERIFY STATUS CLEAR 
NO ERROR IN CLEAR 


sERROR IN STATUS CLEAR 
:STRIP RETURN ADDRESS TO 
;SUBROUTINE AND TRANSFER 
ERROR TO USER 


*KAAEEAAEAAAEREARERAEREAAEAAEEAAAAAERARAERARAARARAAAREARAERERARAKEAEKEEREK 


ZENECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 


iss. 
BIT 
BEQ 


JSR 


eer se.20 


PC GET 


sPACK ACKNOWLEDGE ?? 
sNO!! 


SEQ 01775 


ee 
mrs 
ma 
-4 
> 
© 


: 
Be 


owed xed ed ces ow? 
[a ] 


UE WOW RN WV! 


ce ed ek ed ed ak ed ced red ceed wed eh ee ed 


REAGSSVRVy > 


ond eed ced eed eed eed eed ned eed eed cd 


13 
is 


043 
: 
04 


amd and coat ewe) cond amb cod and anh ond 


ona SS3NSS4 


EEEERESS 


Ww 
a 


BBVRUNE UII OOH NOUR OOOO 


SSSLESRERLIS 


eh ond eed ered od cad ond ened aed cued eer) Sek ed eed eed ceed ab eed ee eed ed eed ed cad weed oe eed ced = ed 


~ 
ont 





woudl 
= 
~ WM 
SNSouu SN 


~ 
~ 
ae 


000100 


042456 


se 
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MODULE 


$ Hste 





: :NO ERROR GETTING RMDS 
188; YF (SP) TRANSFER ERROR TO USER 
: 14$,a(SP) ° 
37$ 
16$: #VV .RMDS! :1S VOLUME VALID?? 
BME 25$ *YES!! 
MOV #PAKACK!GO,RMCS10 “LOAD PACK ACK COMMAND 
MOVB aRACS S1,PUTINX sSETUP REGISTER INDEX TABLE 
MOVB $ #200,PUTIN 
JSR PC. PUT :GO WRITE COMMAND 
BR 198 :NO ERROR LOADING REGISTER 
17$: .WORD 0 sERROR FROM PUT SUB 
18$: ADD #4, (SP) ‘TRANSFER ERROR TO USER 
move  17$, a(SP) 
BR $ 
19$: JSR PC, TIMOUT :WAIT FOR COMMAND TO COMPLETE 


£ FE ARAAAAAAEAEAAAAERAAEREREERERAAEARAKRAEREREEREREEKEERERKKREKEREKEERE 


;VERIFY PACK ACKNOWLEDGE IF #81T4 SET IN TASK 
BIT 14 aa PACK ACKNOWLEDGE ?? 






GO GET STATUS 
sNO ERROR GETTING STATUS 


sERROR FROM GET SUB 
; TRANSFER ERROR TO USER 


ADD #4, (SP) 
MOVB e0$.a(SP) 
BR 
228: JSR og ACKSTS :60 CHECK ACKNOWLEDGE 
a :NO ERROR 
3$: WORD :PACK ACKNOWLEDGE ERROR 
4$: *STRIP RETURN TO SUB AND 


ST (SP) + 
ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB 3$.3(SP) 
22  PREREEERERERERRERAREEEEEEAERERARREREREREERERERERERERERERREERERE 
:RECAL IBRATE DRIVE IF BIT 11 IS SET IN TASK AND SKI‘ IS SET 
*RECALIBRATE DRIVE IF BIT 10 IS SET 


55$: 
BIT 710,39 sRECALIGRATE DRIVE ? 
BNE 5 if 
BIT #91111,398 *RECALIBRATE?? 
BEQ NO! ! 
JSR PC GET :60 GET RMDS 
BR 288 tS *NO ERROR GETTING RMDS 


i 14 
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ST PREPARATION MODULE 
172 04 01 7$ 
158 268: ;ERROR FROM GET SUB 
17% 6 009004 : #4, (SP) : TRANSFER ERROR TO USER 
175 04 000000 e6$.8(SP) 
176 042264 0004 £ 
178 04 $6 737 040000 042460 28S: #Sk1,40$ :WAS SKI SET ? | 
179 04 004 ‘YES, GO RECALIBRATE | 
180 04 76 03 7 020000 001350 #PIP,RMDS1 °1S PIP ACTIVE?? | 
181 1462 38$ NO! ! | 
183 04 012737 ? 001412 29$ #RECAL ! GO. RMCS10 sLOAD RECALIBRATE COMMAND ! 
1 04 14 112737 154 TINX  ;AND REGISTER INDEX 
185 11 001546 7200" POTINK?T ‘SET TERMINATOR 
1 ? 16 PC PUT *GO ISSUE RECALIBRATE 
10 ig [NO ERROR 
189 sas Dcspy __?FRROR IM REGISTER raawsreR 
191 113776 eon 000000 ; 308-2,0(SP) 
198 — 
194 042356 004737 043370 31S: PC, TIMOUT :WAIT FOR COMPLETION 
6 fF RAEAAAAAAAAAAAARARARERAAAAAEAARARARERARARAAEEARAAEEREREEEREARKKKEKE 
1 “VERIFY RE CALIBRATE E AF Bl IT 3 SET IN TASK 
198 042562 032737 000010 042456 BIT :VERIFY RECALIBRATE?? 
199 001430 NO! ! 
372 737 042546 PC.GET :G0 GET STATUS 
10 ‘NO ERROR GETTING STATUS 
; 328: 0 sERROR FROM GET 
4 16 909004 (SP) * TRANSFER ERROR TO USER 
410 11 : 042402 000000 ,a(SP) 
416 00041 
4 737 054260 34$: PC .RCLSTS 260 CHECK RECALIBRATE 
10 426 le [NO ERROR DURING RECALIBRATE 
1g 4 35$: sERROR DURING RECALIBRATE 
1 4 6 36$: (SP)+ *STRIP RETURN TO SUB AND 
1% 6 716 (SP) ‘TRANSFER ERROR TO USER 
1 776 430 000000 35$,a(SP) 
16 216 37 ra SP) :MOVE SP BACK BEFORE ERROR 
1 4 6 : 
18 4 7 sRETURN TO USER 
042456 00000C 39$ ; TASK/VERIFY DESCRIPTOR 
34 be5c20 00000 40$ ‘ [CONTAINS RMER 


J 14 
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GET STATUS SUBROUTINE 
1 -SBTTL GET STATUS SUBROUTINE 
§ sTHIS SUBROUTINE SETS UP THE ‘GET INDEX TABLE’’ AND THE ‘GET | 
4 ;BUFFER" FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE | 
5 3 AND THEN RETURNS TO THE USER. 
; CALL: JSR PC,GETSTS 
. ; 72? RETURN HERE 
10 OAs e 
042 01 33PUSH RO ON STACK 
11 042464 2. 146 : PUSH R1 ON sen 
ig 04 rf 1 3zPUSH R2 ON STACK 
13 0424 1 oot ae RO = ADDRESS OF INDEX TABLE 
14 042474 012701 1406 TRI = ADDRESS OF GET BUFFER 
15 042500 01 000046 sR2 = REGISTER IND 
1g 042504 11 sWRITE REGISTER INDEX IN TABLE 
1 208 005041 LEAR CORRESPONDING LOCATION 
18 510 1 4 000002 S DECREMENT TO NEXT INDEX 
19 14 1 sBRANCH OUT IF DONE 
: 18 000022 :DONT WRITE RMDB INDEX 
§ 049536 
& 5 000200 WRITE TERMINAT 
5 0425 32POP STACK INTO R2 
0425 + sPOP STACK INTO R1 
042540 :sPOP STACK INTO RO 
048564 000807 
544 00020 








CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 


GET SUBROUTINE 


ee eed ed eed weed nd ed ened eed eed 


BEG ASVSOVEURAUNLSSOVR ARV oweVOUAWN— 


RRERPRPREREP PEER PREP RE EEE E 


WSSRLSTEGALESSNE 


UW 
Wms 
on 


4 
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aN 


PO 
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recesses 
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-SBTTL GET SUBROUTINE 


;THIS SUBROUTINE READS THE REG 
:"GET_INDEX TABLE’’ AND 

N THE "GET REGISTER 
4 IN THE 









MUST 
WHICH SHOULD FOLLOW THE LAST ENTRY. 


SUBROUTINE CALL: B 

:(1) VGET_INDEX TABLE” WAS BEEN LOADED WITH REGISTER INDEX 

; VALUES AND TERMINATED WITH A CONTROL BYT 

3(2) “GET INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT 

; UNUSED LOCATIONS, 1.£.,ENTRIES IN BUFFER CORRESPONDING 
TO REGISTERS NOT READ, ARE NOT CHANGED.) 


(3) JSR PC GET 
BR 27% RETURN HERE IF NO ERROR FOUND 








; NOP RETURN HERE IF ANY ERROR FOUND 
; ERROR SUB DEFINES ERROR NUMBER 
*RO = REGISTER BASE ADDRESS 
*R1 = REGISTER ADDRESS 
:Re = BUFFER BASE ADDRESS 
*R3 = BUFFER SS 
*R4 = POINTER TO REGISTER INDEX 
GET: 
ADD #4, (SP) :CLEAR ERROR NUMBER IN USER'S 
cLRB ) TERROR CALL 
MOV ::PUSH RO ON STACK 
MOV *:PUSH R1 ON STACK 
MOV 7 PUSH Re ON STACK 
MOV ::PUSH R3 ON STACK 
MOV PUSH R4 ON STACK 
MOV. *:PUSH ERRVEC ON STA 
MOV : :PUSH ERAVEC 2 ON STACK 
MOV 
MOV 
MOV 
nov sSETUP FOR TIMEOUT 
1$: MOV GET ‘NED‘* STATUS 
MOV “GET “DVA'’ STATUS 
BIT :DEVICE AVAILABLE ?? 
ADD #4,16(SP) SWRITE ERROR NUMBER IN USER'S 
MOVE #112,a16(SP) § :ERROR CALL 
3$: TSTB =. (RR) :DONE?? 
BMI 9$ 
MOVE (R4),R1 eM ="REGISTER ADDRESS 
BIC #*CIDXMSK,R1 §: CLEAR ANY SIGN EXTENSION 


SEQ 0179 


SOSURARAVISSSGRARUS 


RRRERRRELRERLERERRRR KLLLLK 


~ 
—_ 


L 14 
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ae 11 Meant R3 7R3 = STORAGE ADDRESS FOR REGISTER 
i 7 : 177700 acl DKMSKR3 [CLEAR ANY SIGN EXTENSION 

oi 1 GR1), (R3) sREAD REGISTER 
6 764 
022626 5$: (SP)+, (SP)+ : RESTORE STACK 
900016 #4,16(SP) WRITE ERROR NUMBER IN 
740 112776 7 16 47,a16(SP) SUSER'S ERROR CALL 
746 162766 2 000016 7S: 2.16(SP) 
, At 8$: cna) ‘DONE CLEARING?? 
766 00 00 R3 :CLEAR REMAINING STORAGE 
7 1124 (R4)+,R3 * LOCATIONS 
f 501 Re RS 
0H P 
012637 000006 : MOV (SP) +, ERRVEC+2 :POP STACK INTO ERRVEC+2 
776 01 635 000004 MOV (SP)+,ERRVEC POP stAtK INTO ERRVEC 
2 ot MOV (SP)+, sPOP STACK INTO R4 
12603 MOV (SP)+, 3 POP STACK INTO R3 
4 602 MOV (SP) +, =:POP STACK INTO R2 
12601 MOV (SP)+.R ; :POP STACK INTO R1 
012600 MOV (SP)+,RO “POP STACK INTO RO 
0 RTS =—s PC RETURN 
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PUT SUBROUTINE 


-SBTTL PUT SUBROUTINE 


i WITH 






SLOCATION IN 


; FOLLOW THE LAST 
SUBROUTINE CALL: 


7(3) JSR PC,PUT 
BR 239 


NOP 
: ERROR 
. 72? 


nee STER ADDRESS 


OS ee ee ee ee 
Pssst scans fe 
+] 








000240 PUT: NOP 
0046 MOV RO,-(SP) 
010146 MOV R1.-(SP) 
46 MOV R2.~(SP) 
10346 MOV R3,-(SP) 
é MOV R4.=(SP) 
746 000004 MOV ERRVEC - 
700 001276 E, 
TBUF , 












REGISTER BASE ADDRESS 
Lis Ah : ec 
= POINTER TO REGISTER INDEX 





MOV 
1 702 MOV 
7 154 MOV #PUTINK 
737 043176 000004 MOV #5$ ERRVEC 
4 300 MOV ) ER + 
5 7 10: 001174 1S: MOV >, $TMPO 
7 1176 MOV RMCS1(R 
g 1176 BIT #DVA 
786 900004 000016 ADD Ht 16(8P> 
4 £6 112 16 nove if @16(SP) 
4 714 3$: TSTB TR.) 
é 1 31 SOVB (R4),R1 
45 $01 177700 BIC #*CIDXMSK,R1 
4 4 MOVE Ra} ),R3 
48 177700 BIC rel 1OXMSK,R3 
¢ 11 MO tess (RI), 
29 14 000032 CMPB ss MRMOF , ( 


Tus nae art $y - REGISTERS WHICH ARE LISTED IN THE 


TENTS OF THE CORRESPONDING 
THE R_OF 
TABLE MUST 


THE ‘PUT REGISTER te 
sREGISTERS WRITTEN IS VARIABLE; 


“BE TERMINATED WITH A C CONTROL byte EOD) WHICH SHOULD 


:(1)  “PUT_INDEX TABLE’ HAS BEEN LOADED WITH INDEX VALUES 

: OF REGISTERS TO BE WRITT 

(2) “PUT REGISTER BUFFER’ CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 


:3PUSH RO ON STA 


+ 3PUSH ON STACK 


R4 STACK 
PUSH ERRVEC ON STAC 
2 sPUSH ERRVEC#2 ON STACK 


SETUP FOR TIMEOUT 


3GET “'NED** ST pe 
2GET “VAN STATUS 
veeree AVAILABLE?? 


SWRITE ERROR NUMBER IN 
SUSER'S ERROR CALL 


; DONE ?? 
SYES!! 

:R1_= REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 


sR3_= STORAGE ADDRESS 
;CLEAR ANY SIGN EXTENSION 


sWRITE REGISTER 
SWAS RMOF JUST LOADED ? 


SEQ 0181 


N 14 
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PUT SUBROUTINE 
5 1 1001 BNE 4$ 
38 vet $8 oi it MOV (R3).,(R1) ; oAGAINe TO, ENS ENS URE 16 BIT FORMAT 
55 4 43: TSTB (RG) + : ISTER POINTER 
bea “i ae OSs 
S$: CMP (SP)+, (SP)+ :ADJUST STACK 
Be sen bore MOVE a6, 161SP), cUSER'S ERROR CATE UN 
62766 2 000016 7$: SUB #2,16(SP) ; 
9$: 
12637 000006 MOV (SP) +, ERRVEC+2 s:POP STACK INTO ERRVEC+2 
12637 MOV (SP)+,ERRVEC ;:;:POP STACK INTO ERRVEC 
1 MOV (SP)+.R4 ::POP STACK INTO R4 
1 : MOV (SP)+,R ::POP STACK INTO R3 
1 MOV (SP)+,R2 ::POP STACK INTO R2 
12601 MOV (SP)+,R1 33POP STACK INTO R1 
42 01 MOV (SP)+,RO *POP STACK INTO RO 
64 207 RTS PC “RETURN 





CLOCK SUBROUTINE 





4 

5 

§ 

i satis spt 

1 104 001514 

14 136146 

15 

7 000002 000004 
; 900004 

19 043368 
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-SBTTL SIZE CLOCK SUBROUTINE 


SIZCLK: 
MOV 





ERRVEC ,~(SP) 
ERRVEC+2,-(SP) 


ERR 
4 77846 cLEADR 
LKADR 


res, (SP)+ | 
ri7e8to, 40. ELKADR 
#10 

(SP)+, (SP)+ 
#2,4(SP) 


(SP)+ ,ERRVEC+2 
i oERRVEC 


33PUSH ERRVEC ON STACK 
-PUSH ERRVEC+2 ON STACK 
:SET uP FOR BUS TIMEOUT 


sLOAD ADDRESSES FOR KW11T-L 


sTEST FOR KWI1-L PRESENT 
;YES = KWil-L IS PRESENT 

:RESTORE SP 
:SET UP FOR BUS TIMEOUT 

;LOAD ADDRESSES FOR KW11-P CLOCK 


sTEST FOR KWi1-P PRESENT 
sYES = KWi1-P IS PRESENT 

RESTORE SP 

;MOVE RETURN TO ERROR 


sPOP STACK INTO ERRVEC+2 
: POP STACK INTO ERRVEC 
sRETURN TO USER 





SEQ 0183 


7 
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1 .SBTTL TIMEOUT SUBROUTINE 
: sTHIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT 
4 ; GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 
6 “CALL: JSR PC, TIMOUT 
f ; 22? RETURN HERE 
9 043370 3 TIMOUT: 
043370 010046 MOV RO.-(SP) : :PUSH RO ON STACK 
043372 0910246 MOV R2.-(SP) SH R2 ON STACK 
04 74 013746 MOV ERRVEC,-(SP) : :PUSH ERRVEC ON STA 
00 01 746 MOV ERRVEC4+2,-(SP) - PUSH PRRVEES2 ON STACK 
043404 01 3 045 70 900004 MOV #3$,, ERRVEC :SETUP FOR BUS TIMEOUT - 04 TRAP 
04 12 12737 300 MOV aPREL ERRVEC+2 
13700 001276 MOV ERO :RO=BASE ADDRESS 
04 4 01 202 a MOV #30. ,R2 ‘R2=NUMBER OF CLOCK CYCLES 
34 0435 1S: JSR PC,STIMER “START CLOCK TIMER 


#*C<RDY 
#RDY, (SP)+ éRDY=1 -G0=0?? 


#BIT7.@CLKADR :TIMER DONE? 
2$ ZNO! ! 


SS 
* 
: 
S 


16046 2$: MOV RMCS1 (RO) . =(SP) ;GET STATUS 
16 177576 BIC Y!GO>, (SP) 


rs 
Waiw 
ua 
™ 
~_— 
S 
S 
at 4 
4 


136032 


RRRE LLLELLLE 
83s 
Se. 


NNNIIA) 3 


530 DEC NUMBER OF CYCLES 
1361 BNE 1$ :CONTINUE IF NOT DONE Pian 
000412 BR 4$ “"RDY' DID ToT SET ‘GO’ DID NOT RESET 
WITHIN 300 MSEC AFTER THE COMMAND WAS ISSUED. 
70 022626 3$: CMP (SP). (SP)+ SADJUST STA 
7 000004 000012 ADD 4,12(SP) :MOVE SP TO USER'S CALL 
500 112776 000007 000012 MOVB a-ate(sp> ‘WRITE ERROR NUMBER 
506 162766 000002 000012 SUB #2,12(SP) 
043514 4$: 
514 012637 000006 MOV (SP) +, ERRVEC+2 :POP STACK INTO ERRVEC+2 
. 12637 000004 7 MOV (SP)+,ERRVEC  ::POP STACK INTO ERRVEC 
524 01260 _ MOV (SP)+,R *:POP STACK INTO R2 
526 (01 MOV (SP)+_R “POP STACK INTO RO 
2 530 000207 RTS PC :jPOP TO USER 
THIS ROUTINE 1S USED START THE KWI1-L OR THE KW11-P CLOCK. THE CLOCK 
5 “1S STARTED TO N FLAG MODE. A CLOCK WILL BE 16.667MS FOR A 60 HZ CPU 
:AND 20MS FOR A 50 ay CPUS 
; STIMER: : 
10146 MOV R1,~(SP) PUSH R1 ON STACK 
39 13701 001512 MOV — CLKADR,R1 ‘RI =CLOCK ADDRESS 
0 0 020127 172540 CMP R1,4172540 sKW11=P CLOCK? 
¢ 6 Srove 1 000002 Oy #1. 2¢R1 RP; * COUNTER 
rk 54 01 at ities 1$: MOV #BiT2'BIT0,(R1) :START COUNTER 
44 12601 MUV (SP)+,R1 “POP STACK INTO R1 
45 207 RTS ‘RETURN 


ee ee 
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-SBTTL PRIMARY ERROR CHECK SUBROUTINE 
>THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
;THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
; FOLLOWING CHECKS ARE MADE: 


ORRECT UNIT IS SELECTED .. THE UNIT SELECT BITS OF RMCS2 
<(BITS 0-2) EQUAL THE UNIT BEING teSTED: 


-SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET 





sAND NED (BIT 12 OF RMCS2) IS RESET; 


LAST COMMAND WAS COMPLETED, I.€., THE MASSBUS CONTROLLER IS 
“READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
;DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 
we wat? PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS. 
: .NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
te PAR = 0, OR, PAR = DPE = 1 


;THE SUBROUTINE ASSUMES THAT: 

: .STATUS HAS BEEN STORED IN THE jREGISTER INPUT BUFFER, 

ZN PARTICULAR, RMCS1, RMCS RMDS HAVE BEEN STORED IN THEIR 
[CORRESPONDING LOCATIONS OF THE "'GET’’ BUFFER. 

: .(SUNIT) CONTAINS THE DRIVE NUMBER 


‘THE SUBROUTINE IS CALLED AS FOLLOWS: 





kd ed ed od = od 
BNANE WN“ OOBVNOAULWN OC OMONOULWwrR— 











1 : 
? 7(1) ‘JSR PC,PRIERR 
: BR 22? RETURN HERE IF NO ERROR 
: NOP RE 
5 : ERROR SUB 
: JSR PC,a(SP)+ G0 BACK TO SUB FOR MORE ERROR CHECKS 
; 22? RETURN HERE IF NO MORE ERRORS 
i; 043564 PRIERR: 
41 ;CLEAR USER'S ERROR CALL 
43 3 716 #4, ( :MOVE (SP) TO ERROR CALL 
4 33 105076 CLRB eS id =CLEAR ERROR NUMBER 
44 574 162716 SUB #4, (SP) “MOVE (SP) TO NO ERROR RETURN 
46 :REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 
4 13737 001346 114 MOV S$BDD sCORRECT UNIT SELECTED?? 
48 7 114 BIC T 
13737 001 34 114 MOV SUNI AT —_ GOOD DATA FOR TYPEOUT 
737 (177770 1140 BIC #*CUNTMSK, SGDDAT 
23737 001140 00114 SGDDAT,SBODAT | ;:COMPARE EXPECTED AND RECEIVED 
‘DRIVE NUMBERS 
415 BEOQ 1$ YES! ! 
716 ADD #4, (SP) 
5 6 1 000000 MOVB #1.a(SP) ZERROR 1 
1 716 2 SUB #2. (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ “REPORT WRONG UNIT SELECTED 





ee 
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04 4 000010 SUB #10, (SP) 
NOP 
Be MP «108 
‘. 1$: 


sREPORT AN ERROR IF THE aaeace IS NOT AVAILABLE OR IF 
3 THE oevety IS NONEXISTAN 





sRESTORE (SP) 
SKIP OTHER CHECKS 



























5 
5 
60 
g 
6% 
65 32737 004000 001336 alt PDVALRMCSII :DEVICE AVAILABLE?? 
$6 10465 BNE 5$ YES! ! 
6 13737 0013 1140 MOV RMCS1I1,$GDDAT EXPECTED STATUS 
68 7 1140 BIS #DVA, $GDDAT 
69 13737 001 001142 MOV RMCS11,$BDDAT  ;:RECEIVED STATUS 
71 ae 2 mOVE ws. (SP) ERROR #2 
ie 5a 10000 : oh BIT :WAS \NED SET?? 
001414 BEQ NO! ! 
7% 13737 MOV RMCS21,$GDDAT :EXPECTED STATUS 
o3 01 g nov RMCS21.$BDDAT :RECEIVED STATUS 
iS 12776 MOVB #3,a(SP) -YES = CHANGE ERROR NUMBER 
2 716 2$: SUB > (SP) “MOVE SP TO RETURN F FOR ERROR 
904736 JSR C.a(SP)+ sREPORT DEVICE NOT AVAILABLE 
80 716 SUB AT ae *RESTORE (SP) 
1 24 NOP 
7 i BR 10$ sSKIP OTHER CHECKS 
5 :REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY 
O14 052737 000200 001336 BIT #RDY.RMCS11 :CONTROLLER READY?? 
024 Ors 1336 001140 RMCS11,$GDDAT SESpECTED STATUS 
4 52737 00 001140 BIS 
4 7 160001 001140 BIC #SC! TRE !MCPE!GO,$GDDAT 
91 044046 013737 001336 001142 RMCS1I1,$BDDAT —:RECEIVED STATUS 
36 54 716 ADD #4, (SPS 
4 112776 000004 000000 MOVB #6,a(SP) “ERROR #4 
94 162 16 2 SUB #2. (SP) “MOVE SP TO RETURN FOR ERROR 
95 JSR C.a(SP)+ :REPORT CONTROLLER NOT READY 
96 074 162716 000010 SUB AT ee *RESTORE (SP) 
9 1 40 NOP 
41 41 me BR 10$ sSKIP OTHER CHECKS 
1 
1 :REPORT AN ERROR IF GO IS NOT ZERO AND DRY, IS NOT ONE 
1 ; 4104 7 000001 001336 BIT #60,RMCS11 :G0 RESET? 
1 41 ‘ 14 J BEQ BS YES! ! 
/ 41 000200 001350 BIT #DRY,.RMDSI :DRIVE READY?? 
1 41 ¢ 3 001336 001140 MOV RMCS1I,$GDDAT EXPECTED STATUS 
1 1 7 1 1140 BIC REET TRE IRCrE (GO. SGDDA T 
1 1 13737 001 1142 MOV RMCS11,$BDDAT —:RECEIVED STATUS 
4 1 716 ADD (SPS 
1 41 5 000000 MOVB #5.a(SP) sERROR #5 
1 4160 162716 2 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
1 1 JSR PC acsP)+ “REPORT DRIVE NOT READY 
113 0441 162 16 060010 SUB #10, (SP) *RESTORE (SP) 
114 0441 24 NOP 


od ed ed eed ed 
<o 


NOUESWUN OO OCOnauw 


eee ceed ed eed eed eed ered eee ceed ened eed ed eed eed eed 


od ceed ed ceed eed ceed ek ced ree eee ec ee cee ee ced ce re eed we eee ed ee eee ee ceed eed ee ed ed ee eed nd 
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ERROR CHECK SUBROUTINE 

044174 000504 BR 10$ 

044176 8S: 


REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
PARITY ON THE MASSBUS CONT 









4176 737 020000 001336 BT #MCPE RACS11 sPARITY ERROR ?? 
3 9015 1140 MOV RMCS11,$GDDAT :EXPECTED STATUS 
7 1 001140 BIC #SC! TRE $6D 
044 1 001142 MOV RMCS1I 
716 ADD #4, (SP “MOVE STACK TO USER'S ERROR 
112776 13 000000 mMOVB #13,a(SP) 7E #6 
42 «162716 2 SUB » (SP ‘MOVE SP TO RETURN FOR ERROR 
46 736 JSR PC a(SP)+ sREPORT ERROR VIA USER 
162716 000010 SUB #16, (SP) *RESTORE STACK 
54 4 NOP 
5% 5 BR 10$ 
60 9$: 


sREPORT AN_ERROR IF THE RM80 DETECTED A CONTROL BUS PARITY ERROR 
000010 001352 BIT #PAR ,RMER1I a A PARITY ERROR?? 


BEQ sNO!! 
000010 001400 A age ene! sWAS IT THE CONTROL BUS?? 


EEE 
SSae 
uk 
qa 

















1 $ i! 
000010 001426 BIT #PAR,RMER10 :DID TEST SET PAR 2? 
1413 | BEQ 9 NO! ! 
10046 MOV RO,-(SP) *:PUSH RO ON STACK 
4312 012700 001545 MOV #PUTINX,RO ‘RO POINTS TO INDEX TABLE 
e710 14 91$ CHP #RMERT, (RO) :SEARCH TABLE FOR RMER1 
600 MOV ::POP STACK INTO RO 
1 “PAR 


aD 
a 


WAS SET BY TEST 
rie TABLE?? 


~“ 
38 
© 


| 
!MCPE !GO,$GDDAT 
UI ,SBDDAT = RECEIVED STATUS 






3 BPL e ees 5 
4 MOV *:POP STACK INTO RO 
4 1352 001140 93$: MOV “EXPECTED STATUS 
4 ? 10 001140 BIC . 
4 7 001352 001142 MOV sRECEIVED STATUS 
16 ADD TO USER'S ERROR CALL 
77 g 000000 MOVB :WRITE THE ERROR NUMBER 
4 716 SUB : ‘MOVE SP TO RETURN FOR ERROR 
JSR PC-a(SP)+ sREPORT T 
44 4 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
44 a 000010 10$: ADD #10, (SP) “RETURN TO ERROR 
4 3 11$: NOP :RETURN TO NO ERROR 
4614 7 RTS PC | 


— —~ quowemntseeeg eens me 


. 
5 


WONAULS WACO OO@NOAULSWNR— 


el ce ed eed eed eed ed ced weld eee 
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.SBTTL SECONDARY ERROR CHECK SUBROUTINE 


2 THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
sSUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE | 
sERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
SASSOCIATED WITH THE OPERATION BEING PERFORMED. 
sWHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
;NUMBER TO THE ERROR CALL IN THE et ROUTINE RE 
ERROR TER THE TEST pole 
ICH THEN LOOKS FOR 
. ve 
























:TO THE TEST ROUTINE WHICH MAKES T 
MAKES THE ERROR CALL, IT RETURNS TO THE S 
SOTHER ERRORS. WHEN ALL ERRORS HAVE BEEN RE 
;RETURNS TO THE ADDRESS FOLLOWING THE SUBROUT! 


SCALL: JSR PC -SECERR 
BR 222 RETURN HERE IF NO ERROR 
NOP RETURN HERE TO REPORT AN ERROR 
E ERROR NUMBER DEFINED BY SUB 
JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
27? RETURN HERE IF NO MORE ERRORS 





sNOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
: INPUT REGISTER BUFFER. 


044416 SECERR: 


WOU Wh = 


J ARAAARAAAAAAEAAERERAEEERERERERKARREREARRERERRERURREREEEREREKERKKE 


‘ STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 
416 013737 001412 050556 MOV RMCS10, 5158 : STORE ghUNCTION CODE 
424 737 177701 050556 BIC wr cer! FIIFQIF3!FG> 
#4, (SP move 
44 
1G 








16 sittied ADD tgp) TO ERROR CALL 
6 LRB a(sP) CLEAR ERROR NUMBER 
62716 000004 SUB #4, (SP) ;MOVE (SP) TO NO ERROR RETURN 


SL RRRAAARAAAEAERARRRRERERERAERERERRERRERERERERREEERREREEERERE KEES 
OMMANDS 


; CHECK SECONDARY ERRORS COMMON TO ALL C 


REPORT ERROR IF DRIVE IS NOT READY, I. E., IF DRY = 0 
BIT #DRY .RADSI smelt READY?? 


o 





sYES!! 
;BAD DATA FOR TYPEOUT 
:GOOD DATA FOR TYPEOUT 


cERROR NUMBER 
SMOVE SP TO RETURN FOR ERROR 
;REPORT NOT 

sRESTORE (SP) TO ERROR N 







sREPORT ERROR IF GO BIT IS NOT RESET 
eRACSTI 


4 737 000001 001336 5s: iT 366 BIT RESET?? 
? ; 001336 001142 MOV RMCS1I.$SBDDAT BAD BATA FOR TYPEOUT 
4 7 1 : 114 BIC #*CG0, $BDDAT 
7 00114 CLR SGDDAT :G00D DATA FOR TYPEOUT 
16 ADD #4. (SP) 
4 77 11 000000 MOVE «#11, a(SP) sERROR NUMBER 


iiss 


H 15 
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SECONDARY ERROR CHECK SUBROUTINE 
58 044570 162716 000002 SUB (SP) :MOVE SP TO RETURN FOR ERROR 
5 574 JSR C*aCSPD« [REPORT DEVICE NOT AVAILABLE 
60 576 168716 000010 SUB rote sRESTORE (SP) 
61 04460 24 NOP 
re: REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 
64 1 1336 001142 10$ MOV RMCS11,$BDDAT ;:1S FUNCTION CODE CORRECT?? 
65 1 7 0073 1 90114 BIC #°C76, $BDDAT 
66 1 0509 114 5155, S6DDAr ZEXPECTED FUNCTION CODE 
A 7 001142 001140 SBDDAT , $GDDAT 
68 1413 BEQ 15$ sYES!! 
69 716 #4, (SP) 
112776 M2 000000 MOVB #12,a(SP) ZERROR NUMBER 
71 162716 SUB #2. p “MOVE SP TO RETURN FOR ERROR 
ze 54 736 JSR ,a(SP)+ *REPORT WRONG FUNCTION CODE 
162716 000010 SUB WiOns sRESTORE (SP) 
re ian 15$ 
6 :REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
SERRORS ARE SET. OR IF COMPOSITE ERROR IS NOT SET AND 
a 5037 001140 : OTHER erER S ARE SET EXPECT ‘ERR’ = 0 
; oo ieee 001352 “IS RMER1 = 027 
1 74 1003 NO! ! 
7 57 001400 :1S RMERZ = 02? 
704 e737 04 001140 208: :""ERR" SOULD BE SET 
§ 044712 013737 001 001142 258: 
e737 1 001142 
3737 001140 00114 218 ERR" 0K?? 
716 000004 ‘MOVE SP TO USER'S ERROR 
742 112776 7 000000 “WRITE ERROR NUMBER 
91 e 162716 2 ‘MOVE SP TO ERROR RETURN 
3 754 736 sREPORT INVALID COMP ERROR 
33 4756 162716 000010 
95 sREPORT AN ERROR IF "'TRE’’ IS SET AND NONE OF THE BITS WHICH SET 
“TRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 
ager TRE IS or 
762 037 001140 CLR sEXPECT “TRE’’ = 0 
7 13746 001346 MOV +H -(SP) § :WAS DLT, WCE, UPE, NED. NEM 
Me it: 00037 Bic i ($p)s :P OE, MXF OR MDPE SET 
eld 040000 001350 ERR, RMDSI ZWAS EXCEPTION RECEIVED?? 
4 737 000030 050556 SEARCH, 515$ SUAS DATA TRANSFERRED?? 
1 3 1140 35$: #TRE .SGDDAT a Ha SHOULD BE SET 
1 13737 O01 1142 40$: RMCSII,$BDDAT :BAD DATA FOR TYPEOUT 
1 7 114 #*CTRE . SBDDAT 
130 004160 114 DAT, SBDDAT 1S TRE * 0K?? 
49 al: #4. (SP) 3MOVE SP TO USER'S ERROR CALL 
11¢ 14 000000 #14,a(SP) EE R 
11 1 16 2 #2, (SP) “MOVE SP TO RETURN FOR ERROR 
114 PC. a(SP)+ “REPORT TRE ERROR 
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sesso 
+5 
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sr 
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geese 8 
MMINOSOoO GO 


i: 


PPAR 
NMNOS 


001142 


45$: 


#10, (SP) 


sRESTORE (SP) 


f EAAAEAAEAAAAAAAAARAEEAEEERERAARAAERAEAREAERAERARREREREEKLEAREREERERE 


USING THE FUNCTION COD 
TS oet SET THAT 











E TABLE, CHECK FOR THE FOLLOWING ERRORS: 
BE $ E.G., ATA AND 
WCE AND i. 


ILF 


sNOTE THAT S$ TONAL C AND 0 
>STATUS CONDITI OS ry WRITE LOCK ERROR SHOULD ONLY BE SET IF 


SWRITE LOCK IS ON 


GET AND STORE THE ENTRY FROM THE FUNCTI 
MO RO 3h R 


MOV 
MOV 
MOV 


sREPORT 
3ATA IS i SET AND SHOULD 


50$: 


55$: 











(SP)+ 










»SGDDAT 
RR.RMDS! 
Be 

1 0p 


RMDSI AT 
#*CATA, SBDDAT 
SGDDAT . SBDDAT 





PC “asp 
#10,(S 


COMMAND IS A 


A WRITE. 


: PUSH 
:GET FUNCTION CODE 


515$,R 
FNeDFSCnOD, 500$ :STORE ENTRY 


CODE TABLE 
ON 


:sPOP STACK INTO RO 
AN ERROR IF AN rie eid ATTENTION OCCURRED OR IF 
its. EXPECTED ATA STATUS 


COMPOSITE ERROR SET ?? 


SEXPECT AN_ATTENTI 
ARES 


“MOVE. SP TO USERS ERROR CALL 
CALL 


sLOAD ERROR # IN 
sMOVE SP TO ERROR 
sREPORT ERROR 
sRESTORE SP 


RETURN 


sREPORT ERROR IF ILF IS INCORRECT, I.E.. IF ILF DOES NOT COMPARE 


:WITH FUNCTION COD 
MOV 


60$: 
REPORT 


BIS 
MOV 
BIC 






TABLE 






T, SBDDAT 


ne a(SP) 


PC asp 
#10,(S 


SGDBAT 
AN ERROR JF CE IS SET 


WAC “s oop) 
RMCS21.$BDDAT 
(SP)+, $BDDAT 





GET EXPECTED ILF 


CLEAR ALL OTHER BITS 


GET RECEIVED ILF 


aOVES 





TO NO ERROR 
CLEAR EXPECTED STATUS 


[CLEAR ALL ia BITS 
ILF OK ? 


“MOVE. ép TO USERS ERROR CALL 
ERROR NUMBER IN CALL 





AND as NOT BE SET 


CLEAR WCE IF ENABLED 


SEQ 0190 


J 15 





SEQ 0191 | 

























E C | 
17 s 1412 BEOQ 90$ :BRANCH IF WCE Ok : | 
1 716 ADD #4, (SP) MOVE SP TO USER'S ERROR CALL | | 
174 11277 $ 000000 MOVB #26,a(SP) WRITE ERROR NUMBER | | 
175 162716 SUB #2, (SP) :MOVE SP TO ERROR RETURN | | 
1% 736 JSR PC-a(SP)+ ‘REPORT ERROR | 
1 04 162716 000010 SUB #16, (SP) :RESTORE ERROR | 
A: _ : 
1 :REPORT ERROR IF OPI STATUS IS SET AND SHOULD NOT BE SET | 
181 045 13746 050550 MOV $,-(SP) sGET OPI STATUS ENABLE 
1 5 52716 157777 BIS #*COPI, (SP) ‘SET ALL OTHER BITS 
1 1 v3 00139 001142 MOV RMER11,$BDDAT :GET RECEIVED STATUS 
4 637 114 BIC (SB) +, $BDDAT [CLEAR OPI IF ENABLED 
1 716 000004 ADD SP) ‘MOVE SP TO USER'S ERROR CALL 
1 5412 112776 000164 000000 MOVB a(SP) ‘WRITE ERROR NUMBER IN CALL 
1 34 162716 000002 #2, (SP) :MOVE SP TO ERROR RETURN 
1 4 004736 JSR PC’ a(SP)+ “REPORT ERROR 
1 3426 162716 000010 #10, (SP) *RESTORE SP 
133 54 100$: 
198 sREPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS 
194 *SET AND VV IS Nor RESET 
195 045432 13746 050550 MOV 00$,-(SP) :GET IVC STATUS ENABLE 
196 54 737 000100 001350 BIT VV RMDSI ‘IS VV SET 
13 of r sate 01 Bic 1038 (SP) VES’ - IVC SHOULD BE 0 
199 3489 at 19000 105$: #*CIVC, (SP) ‘SET ALL OTHER BITS 
5456 01 001400 001142 RMERZI,$BDDAT :GET RECEIVED STATUS 
1 045 7 001142 ,SBDDAT  :CLEAR IVC IF ENABLED 
: 54 g 1412 ‘BRANCH VC OK 
547 716 000004 #4, (SP) “MOVE SP TO USERS ERROR CALL 
5476 112776 000165 000000 #165,a(SP) “WRITE ERROR NUMBER IN CALL 
5 045504 162716 2 ; *MOVE SP TO ERROR RETURN 
3510 004736 PC a(SP)+ *REPORT ERROR 
5512 162716 000010 re #10, (SP) ‘RESTORE SP TO NO ERROR 


sBIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
A a ee 















; RMCS2 = UPE. 
“EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
“WRITE ERROR ENABLE BIT IS RESET. 


sREPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 
THE DRIVE IS NOT WRITE PROTECTED 





NOUS Wty O 


ound owed eed ech od end es a ed 









5516 012746 177777 MOV #~1 (SP) sASSUME WRITE ERRORS ENABLED 
: 33 2737 004000 050550 | BIT | wut .5 SARE WRITE ERRORS ENABLED ?? 
; 335 004000 001350 BIT iy RL IS THE DRIVE WRITE PROTECTED ?? 
5 04554 at 115$: SRESET WLE ENABLE 

346 137 1 001142 1208: “GET RECEIVED STATUS 

354 7 00114 “CLEAR WLE IF ED 
8 1412 “BRANCH IF WLE OK 
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NL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 22-4 SEQ 0192 
CHECK SUBROUTINE 
716 ADD #4, (SP) ZMOVE SP TO USERS ERROR CALL 
112776 MOVB #2%.a(SP) “WRITE ERROR NUMBER IN CALL 
162716 SUB #2, 
736 JSR PC pa(sP)s 
162716 SUB #10, (SP) “RESTORE SP TO NO ERROR 
ERROR IF WCF IS SET AND WRITE ERRORS ARE NOT ENABLED 
01 746 MOV #-1,-(SP) sASSUME WRITE ERRORS ENABLED 
2753 BIT E,500$ CARE WRITE ERRORS ENABLED 7? 
BIC CF, (SP) 


~~ 
os 


Win 
axonetes 


o 
™m 
N 
—) 
Or 


Hid DISABLE W F ERROR 
RMERII,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+, | SBDDAT sRESET wer IF ENABLED 


:BRANCH I OK 
ADD #4, (SP) ;MOVE SP_TO USERS wit ut 
MOVE SP_TO ERROR RETURN 
“RESTORE SP TO NO ERROR 





SUB «Ss 
JSR PC ,a(SP)+ 
SUB #10, (S 


ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) sASSUME WRITE ERRORS ARE ENABLED 
















ae nes WRITE ERRORS ENABLED ?7? 
BIC RESET DPE ENABLE 

MOV SGET RECEIVED STATUS 

BIC sRESET DPE IF ENABLED 

BEQ BRANCH IF 

ADD ;MOVE SP TO USERS ERROR CALL 
MOVE SWRITE ERROR NUMBER IN CALL 
SUB ;MOVE SP TO ERROR RETURN 


re ee er er ne a ne en 
mn rn se 











JSR PC-a(SP)+ ERROR 

SUB #10, (SP) “RESTORE SP TO NO ERROR 

AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 

MOV #=-1,-(SP) : ASSUME WRITE ERRORS ARE ENABLED 

BIT 0% ZARE Wh WRITE ERRORS ENABLED ? 

BIC ‘ DESABLE UPE ERROR 

MOV nAcsé1 1 SBDDAT “GET RECEIVED STATUS 

BIC 1558. +,$BDDAT  :RESET UPE IF ENABLED 

BEQ 1 ‘BRANCH IF UPE OK 

ADD (SP) ‘MOVE SP TO USERS ERROR CALL 
‘WRITE ERROR NUMBER IN CALL 





MOVB fat asp) 
SUB 


JSR PC a(SP)+ 
SUB #16, (SP) 


E 
;MOVE SP TO ERROR RETURN 
;REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


AN ERROR IF lat IS SET AND 1s NOT ENABLED 
MO 5 SP) :GET IAE ENABLE 

BIS a CIAE. SP) SET ALL OTHER BITS 
MOV RMERII.$BDDAT :GET RECEIVED STATUS 
BIC (SP)+, $BDDAT :CLEAR IAE IF ENABLED 


ome. eer —_— 


L 15 
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SECONDARY ERROR CHECK SUBROUTINE | E 
36° 9 5 1412 BEQ 160$ :BRANCH IF IAE IS Ok | 
5 900004 ADD #4. (SP) [MOVE SP TO USERS ERROR CALL 
13778 900166 000000 MOVE  #166,a(SP) | :WRITE ERROR NUMBER | 
288 $90 946006 162716 000002 SUB #2, (SP) :MOVE SP TO ERROR RETURN | 
0 004736 JSR PC a(SP)+ *REPORT ERROR AND RETURN 
6072 162716 000010 ie SUB #10, (SP) :MOVE SP TO NO ERROR 


sBIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
: ALL a ERRORS, I.E., 


5 
: RMC T 
236 ; RMCS2 - OL T NEN AXE 
5 RMDS = LBT 
3 RMER1 - AOE 
300 sNOT E: 
1 LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
§ : CYLINDER REGISTER IS WRITTEN 
2 ; AOE CANNOT BE SET IF LBT Is NOT ALSO SET 
; "TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 
5 


sREPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
SUME ERRORS ARE ENABLED 






. 
cs ere eer 







$). 

. 

10 046076 012746 177777 MOV #=-1,-(SP) sAS 

11 046102 032737 001000 050550 BIT #AOE ,500$ SARE ERRORS ENABLED ?? 

1 046110 001002 BNE YES !! 

1 112 042716 100000 BIC #DLT, (SP) *RESET DLT ENABLE 

14 046116 013737 001346 001142 165$: MOV RMCS21,$BDDAT :GET RECEIVED STATUS 

15 046124 042637 001142 BIC (SP) +, $BDDAT 3 CLEAR DLT IF ENABLED 

16 0461 1412 BEQ 170$ : IF DLT 

1 1 716 ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
18 046136 112776 000032 000000 MOVB itn) ‘WRITE ERROR NUMBER IN CALL 

319 046144 162716 000002 SUB ;MOVE SP TO ERROR RETURN 
130 004736 JSR C,9(SP)+ T ETURN 

321 046152 162716 000010 SUB WiOn(s “MOVE SP TO NO ERROR 

Ze 156 170$: 

534 sREPORT ERROR IF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 

325 012746 177777 MOV -(SP) :ASSUME ERRORS ARE ENABLED 

26 130 050550 BIT A cARE ERRORS ENABLED ?? 

528 : 16 IC #NEM, (SP) ‘DISABLE NEM 

96 13737 - 001 : 001142 175$: MOV RMCSO1,$BDDAT :GET RECEIVED STATUS 

3 2637 00114 BIC (SP)+,$BDDAT | :CLEAR NEM IF ENABLED 

31 1412 BEQ ‘BRANCH IF NEM IS OK 

716 000004 ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 

3 112776 167 000000 MOVB #167,a(SP) ‘WRITE ERROR NUMBER IN CALL 

3 162716 SUB #2, ‘MOVE SP TO ERROR RETURN 

535 004736 JSR PC ,0(SP)+ “REPORT ERROR AND RETURN 

36 62716 000010 oie SUB #10,(S “MOVE SP TO NO ERROR 

$f : 

5 sREPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
0 12746 177777 MOV #-1,-(SP) sASSUME ERRORS ARE ENABLED 
1 32737 001000 050550 BIT #AODE , 500$ “ARE DATA ERRORS ENABLED ?? 
2 1002 BNE 185$ SES f! 
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SECONDARY ERROR CHECK SUBROUTINE 









185$: Rncso1> SBDDAT 
{Sp)+, +, $BDDAT 
#4, (SP) SMOVE SP TO USERS ERROR CALL 
#33,a(SP) “WRIT NUMBER IN CALL 
2, (SP) :MOVE SP TO ERROR RETURN 
PC x8(SP)+ sREPORT ERROR AND RETURN 
ae #10, ( ‘MOVE SP TO NO ERROR 


sREPORT ERROR IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED 
MOV sASSUME DATA ERRORS ARE — 


#-1,-(SP) 
BIT #AOE , 5008 ARE DATA ERRORS EANBLED ? 
BEQ 191$ “NO ! 
BIT #LBT RDS! “1S iar ALSO SET ?? 
BNE 195$ *Y § !! 
191$: BIC WADE, (SP) “DISABLE AOE 
195$: MOV RMERII,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT | :CLEAR AOE IF ENABLE 
BEQ 200$ § ff S OK 
ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
MOVB #30 .a(SP) : ERROR R 
SUB #2, (SP) “MOVE SP TO ERROR RETURN 
JSR PC-a(SP)+ “REPORT ERROR AND RETURN 
wes SUB #10, (SP) “MOVE SP TO NO ERROR 


at ee OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 


ae 
3 RMER1 - = HERE. “HCE, FER 
; RMER2 - E,SSE 


sRESET THE raiatanee BIT (HCE) IF HEADER oy er INHIBIT IS SET 
BIT F sI$ tte SET ? 


BE NO! 
BIC #HCE ,500$ ;YES = DISABLE ALL HEADER ERRORS 


201$: 


sREPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #=-1,-(SP) sASSUME ERRORS ENABL 
nee HEADER ERRORS ENABLED ?? 











¢ (SP) DISABLE H HCRC 
205$: {,$BDDAT :GET RECEIVED STATUS 
S08.” ,SBDDAT RESET HCRC 1p ENABLE 
(SP) ;MOVE SP TO USERS ERROR CALL 
O38 S¢SP) OR CAL 
#2, (SP) ;MOVE SP TO ERROR RETURN 
PC pa(SP) + “REPORT ERROR AND RETURN 
sien #10,(S “MOVE SP TO NO ERROR 


sREPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
: #-1,-(SP) sASSUME ERRORS ENABLED 
BIT wc 500 *ARE ERRORS ENABLED ?? 





SEQ 0194 


I a Eee 


N15 
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SECONDARY ERROR CHECK SUBROUTINE 

400 $316 99 sVES $3 

401 5 1 sDISABLE HCE 

rr 524 1 001142 215$: 2GET 

40 5 114 CLEAR HCE IF ENABLED 

404 erty BRANCH IF H OK 

sMOVE SP TO USERS ERROR CALL 

sWRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
sREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


Stake 
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oats 
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4 
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ee ewer. = 
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2° KOK TO WMNOODss 


monrwz sz! 










409 162716 000010 

410 046 220S: 

41 :REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED 

41 12746 177777 MOV #-1,-(SP) sASSUME FER IS ENABLED 

414 737 000200 050550 BIT #uce.5 % SARE HEADER ERRORS ENABLED ?? 

415 1002 . BNE 22 YES |! 

41 1 20 BIC #FER,(SP) . DISABLE FER 

41 1 v3 a018 001142 225$: MOV  RMERII.SBDDAT :GET RECEIVED STATUS 

418 7 001142 BIC ($P)+ ,SBDDAT SRESET FER IF ENABLED 

419 412 BEQ 0$ ‘BRANCH IF FER OK 

4 716 000004 ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 

421 112776 000037 000000 MOVB 4#37,a(SP) ‘WRITE ERROR NUMBER IN CALL 

4 é 162716 000002. SUB #2,(SP) “MOVE SP TO ERROR RETURN 

4 004736 JSR _—«- PC..a(SP)+ SREPORT ERROR AND RETURN 

424 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 

: 5 2308: 

4 $ REPORT ERROR IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED 

4 12746 177777 MOV #~1,-(SP) sASSUME ERRORS ENABLED 

4 32737 000200 050550 BIT #uce 5008 SARE THEY ENABLED ?? 

4 100 BNE 2358 YES !! 

4 16 1 ‘BIC (SP) “DISABLE BSE 

4 1 001400 001142 235$: MOV 1,$BDDAT GET RECEIVED STATUS 

4 7 00114 BIC ,$BDDAT CLEAR BSE IF ENABLED 

4 141 BEG “BRANCH IF | 

435 71 ADD (SP :MOVE SP TO USERS ERROR CALL 

“ty 11277 4 000000 4,a(SP) “WRITE ERROR NUMBER 

4 1 16 2 SUB a “MOVE SP TO ERROR RETURN 

4 7 JSR PC-a(SP)+ *REPORT ERROR AND RETURN 

4 162716 000010 oe SUB #10, (SP) ‘MOVE SP TO NO ERROR 

44 

44 :RESET THE ENABLING BIT (HCE), IF SKIP SECTOR ERROR INHIBIT (SSEI) 
bh “SET OR FORMAT 16 (FMT) IS CLEAR. 

44 1 MOV ~(SP) ::PUSH RO ON STACK 

44 1 50556 MOV 575$,R0 *GET FUNCTION CODE 

446 1 7 050550 MOV FNCDTB(RO),500$ :STORE FUNCTION TABLE ENTRY 
a MOV (SP)+ ! = POP STACK INTO RO 

010000 001370 eI! #FMT16,RMOF I 18 BIT FORMAT MODE ? 

4 001000 001370 BIT #SSE1.RMOF I °IS SSEI SET ? 

4 4 3 BEQ 24 “BR IF NO 

é 000200 050550 BIC #HCE , 5008 ‘DISABLE HEADER ERROR 

4 

4 7 :REPORT ERROR IF SSE. 1S SET AND HEADER ERRORS ARE NOT ENABLED 

4 012746 177777 MOV #-1,-(SP) sASSUME ERRORS ENABLED 


CZRNDAO RMBO 
CONDARY ERROR CHECK 
457 774 032737 000200 
2 gers Sa 
125 10 01 73 pet 
461 701 7 Ooi ie> 
7 12 
46 7 716 
464 112776 
ies Gero3e 149718 Ooowde 
709 7 162716 000010 
468 047050 
rh 
470 
471 
47 
47 
474 
475 
47 
47 
‘78 
479 047050 15738 177777 
7054 032737 000100 
; , ¢ 1008 00400 
4 7070 6 § 00134 
4 7 ‘8 Py 114 
G85 Gszi0s Goldie 
7110 ~=«1 3776 000027 
711 162716 000002 
71 903 oe 
4 71 162716 000010 
49 71 : 
3 
494 130 O1sts 177777 
495 0471 32737 000100 
re 7142 3 
G37 Giri4s Gter1e 100000 
$e 047150 O18737 QOtSee 
71 si¢ 
7164 71 
71 112776 
a4 162716 
7 62716 000010 
7210 
19 
1 7210 012746 177777 
te 67210 12746 977777 
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001142 


000000 
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SUBROUT INE 





BIT ARE HCE'S VALID FOR THIS FUNCTION ? 
BIC “DISABLE SSE 
243$: MOV [GET RECIEVED STATUS 
BIC SP) :CLEAR SSE IF NOT VALID FOR FUNCTION 
BEQ 24465 sBRANCH IF 
ADD #4 :MOVE SP TO USERS ERROR CALL 
MOVB ass a ‘WRITE ERR 
SUB #2, :MOVE SP TO ERROR RETURN 
JSR PC-a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #10, (SP) ‘MOVE SP TO NO ERROR 


2448: 


sBIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
;FIELD ees” tees 


: RMER] - DCK.ECH 


sNOTE: , 
: ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
sDCK IS SET. 


sREPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 
MOV #=-1 ,-(SP) 





1,°(S 5 ED 
BIT #ECH. 5008 SARE DATA FIELD ERRORS ENABLED 2? 
BNE 45$ YES !! 
BIC PE ( :DISBALE MDPE 
245$: MOV RMCS21,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR MDPE IF ENABLED 
Q 250$ ‘BRANCH IF 
ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 
#37 a(SP) sWRITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO E 
JSR PC-a(SP)+ ‘REPORT ERROR AND R 
SUB #16, (SP) :MOVE SP TO NO ERROR 





sREPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED 
MOV M=1,=(SP) sASS ENABLE 
BIT sARE THEY ENABLED ?? 








‘DISABLE DCK 
“GET RECEIVED STATUS 
“CLEAR DCK E 





sREPORT E 
sMOVE SP TO NO ERROR 


AND, 
E NOT ENABLED, OR 


sASSUME ENABLED 
sARE ERRORS ENABLED ?? 


SEQ 0196 


PE 
t 


C 16 






PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 22-9 SEQ 0197 | 
CK SUBROUTINE | 
514 41 BEQ 265$ :NO !! 
319 737 004000 001370 BIT #EC1 .RMOF I 71S ECI SET 2? | 
16 004 BNE 265$ “YES !! | 
517 7 100000 001352 BIT #DCK ,RMER11 71S DCK ALSO SET ?? 
518 047 902 BNE 27 YES !! | 
519 047 16 1 2658: BIC #ECH, (SP) “DISABLE ECH | 
520 v3 1352 001142 270$: MOV RMERII,$SBDDAT :GET RECEIVED STATUS | 
1 7 00114 BIC (SP)+, DAT CLEAR ECH IF ENABLED 
é 412 BEQ 5$ ‘BRANCH IF ECH IS OK 
7 716 ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
4 776 1 000000 MOvVB «#31, a(SP) :WRITE ERROR NUMBER IN CALL 
525 047 716 2 SUB #2, (SP) :MOVE SP TO ERROR RETURN 
5 6 04 736 JSR PC. a(SP)+ : RROR AND RETURN 
> z 04 716 000010 jo SUB #10, (SP) ‘MOVE SP TO NO ERROR 


D 16 
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SECONDARY ERROR CHECK SUBROUTINE 


















1 f PREAEAEAAAEEAERAAAREAAAEAEREEEAAAEEAERARARERAERAEREAREEAEEREREEEKKKEE | 
g + PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS | 
Z ° { AAAAAAAAAAAAAARAEAAEAAEAEEAAEAAARERAAEAREERAEERERERREREKKKKKAKEE | 
5 047310 022737 000030 050556 CMP as ARCH, 515$ | :WAS DATA TRANSFERRED ? | 
6 067318 1 402 BLO” ob0s sBR IF YES | 
i 047320 000137 050522 JMP NO - EXIT 
9 “REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERO | 
10 04 13737 001340 001142 280$: MOV RMWCI ,$BDDAT : WORD COUNT ZERO?? 
1g 04 05 et 040000 001336 TRE. »RMCS11 : TRANS SFER ERROR DETECTED?? 
14 04 16 000004 #4, (SP) 
15 047359 112776 000015 000000 #15 ,a(SP) sERROR NUMBER 
16 1356 005037 001140 SGDDAT *GOOD DATA FOR TYPEOUT | 
1 162 16 000002 , (SP) “MOVE SP TO RETURN FOR ERROR 
18 04 736 C,a(SP)+ : D COUNT NOT ZERO 
19 162716 000010 Wi i6ecs “RESTORE (SP) 
047374 240 
2 “REPORT ERROR IF ate A 1S NO NOT CORRECT 
047376 013737 001340 001140 285$: MOV :GET WORD COUNT AT END OF TRANSFER AND 
4 047404 163737 001414 001140 SUB Reco’ SeDDAT SUBTRACT STARTING WORD COUNT. 
5 047412 . 37 001140 ASL f 
6 7416 063737 001416 001140 ADD RMBAO, SGDDAT TAD STARTING BUS ADDRESS 
8 047424 032737 000010 001346 BIT #941 RACS2I :WAS BUS ADDRESS INHIBIT (BAI) SET ?? 
047432 001403 BEQ $ :NO !! 
047434 013737 001416 001140 MOV : sADDRESS SHOULD NOT HAVE CHANGED 
04744 23737 001140 001342 290$: CMP :BUS ADDRESS 0K?? 
745 1616 BEQ YES! ! 
7452 013737 001342 001142 MOV ‘BAD DATA FOR TYPEOUT 
5 0474 716 000004 ADD 
7464 112776 000016 000000 MOVB sERROR NUMBER 
7472 162716 000002 5uB ‘MOVE SP TO RETURN FOR ERROR 
747 736 JSR ‘REPORT UNEXPECTED ADDRESS 
7500 162716 000010 SUB *RESTORE (SP) 
4 7504 240 NOP 
4 ;COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 
43 0475 6 295$: CLR ) sNUMBER OF SECTORS TRANSFERRED 
44 7510 013746 001340 MOV RMWICI,-(SP) :GET WORD COUNT AT END OF TRANSFER AND 
45 047514 163716 001414 SUB RMWCO, (SP) ‘SUBTRACT STARTING WORD COUNT. 
re 75 74 000400 MOV #256. .~(SP) sASSUME 256. WORDS PER SECTOR 
48 Ne: el 2 001412 BT 1T1,RMCS10 ;HEADER & DATA COMMAND ? 
0 75 716 000002 ADD #2, (SP) SAO ANGE TO 258. WORDS PER SECTOR 
7540 005266 300$: INC 4(SP) s INCREMENT SECTOR C 
¢ e%0 1 ati SUB SP) ,2(SP) ;SUBTRACT ONE ONE SECTOR” el S WORTH 
7390 BGT 00$° *CONTINUE IF NOT 
5 047 626 CMP (SP)+, (SP)+ “RESTORE STACK 
:COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM 





SEQ 0198 | 
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58 :NUMBER OF SECTORS 
59 047554 013737 1446 05055 MOV RMDCO, 5 :STORE ORIGINAL CYLINDER 
60 047968 13737 0014 050 5 MOV RMDAO, 505$ *STORE ORIGINAL TRACK 
61 047 13737 001420 050554 MOV RADAO. 5108 * STORE ORIGINAL SECTOR 
62 047576 13737 001 050560 MOV RK, 5 sSTORE LAST TRACK 
63 047604 9003 7 050 $ :GET TRACK ADDRESS TO LO BYTE AND 
64 047610 7 050560 INC S INCREMENT TO GET TOTL # OF TRACKS. 
047614 042737 000377 050552 6IC #*C<TADMSK>, 505$ sSAVE TRACK ADDRESS BITS AND 
67 047622 7 52 SWAB 0s«S(05$ sSWAP TRACK ADDRESS TO LOW BYTE. 
68 047626 7 1 400 050554 BIC #*C<SADMSK>,510$° sSAVE SECTOR ADDRESS BITS 
0476 637 050554 ADD (SP)+,510$ 
71 047640 032737 001000 001444 BIT #SSE1,RMOFO sWAS SSEI SET ? 
7646 001411 BEQ 310$ ‘NO i! 
74 047650 023727 050554 000060 CMP 510$,432. sSECTOR OVEFLOWED?? 
75 7656 103417 BLO 315$ “NO!! ) 
i: 7 005237 050552 INC 505$ ‘INCREMENT TRACK 
7664 162737 000040 050554 SUB #32. ,510$ sADJUST SECTOR 
04767 023727 050554 000037 310$: CMP 510$,431. :SECTOR OVERFLOWED ? 
04 10 0 315$ :NO !! 
1 047702 0052 50552 314$: INC 505$ ‘INCREMENT TRACK 
7706 162737 37 050554 SUB #31. ,510$ sADJUST SECTOR 
047714 766 BR 310$ *TRY AGAIN 
5 047716 023737 050552 050560 315$: CMP 505$.5208 ;TRACK OVERFLOWED?? 
7724 103407 BLO 320$ NO! ! 
77 0032 7 050550 INC 5 S INCREMENT CYLINDER 
163 7 050560 050552 SUB 520$,505$ *ADJUST TRACK 
774 766 BR 315$ sTRY AGAIN 
3 7742 000240 NOP 
4 :REPORT ERROR IF ‘‘SSEI" IS SET AFTER TRACK SWITCHING OCCURED 
9 ‘THRU DATA TRANSFER 


1140 $20$: CLR SGDDAT :SETUP EXPECTED SSEI = 0 
1 MOV RMOFI,SBDDAT :GET RECIEVED DATA AND 
001142 BIC #°CSSEI.SBDDAT ;SAVE SSEI BIT FOR COMPARE. 


77 4 51030 001000 001444 BIT #SSEI .RAOFO : WAS SSEI SET BEFORE DATA TRANSFER ? 
7774 «(123 3 001421 001345 CMPB  RMDAO+1,RMDAI+1 :DID TRACK SWITCH OCCUR ? 


1411 BEQ 1$ :NO 
5737 001142 asa $ DAT 31S SSEI STILL SET ? 
‘POINT TO ERROR 





#4, (SP) 
#369.0(SP) “DEFINE ERROR NUMBER 


94 

$6 

1 001140 al nove UF ssti's BAT Ore SETUP EXPECTE D SSEI = 1 
c 

10 8 38737 abr 001142 3318: cP $6p — :18 SSEI CORRECT ? 

12 716 ADD # “POINT TO ERROR 

1 0 776 6 000000 MOVB Nes ESP) “DEFINE ERROR NUMBER 

14 56 1 2 ‘ADJUST RETURN TO ERROR 





eed) coed) dd eve enh ed ceed ceed cee eee coe ed cr end ed 


323$: SUB 
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JSR PC ,a(SP)+ 


sREPORT ERROR 
SUB #10, (SP) 
NOP 


SRESTORE (SP) 


;REPORT ERROR IF “LBT’’ IS NOT CORRECT 
$24$: CLR $600 DAT :SET GOOD DATA FOR LAT = 0 
3 $. #560. : SHOUL D LBT BE SET?? 
& AE .RMER1I 3WAS IAE SET 2? 
BNE 5 :YES = LBT SHOULD NOT BE SET 
MOV #LBT.SGDDAT ‘SET GOOD DATA FOR LBT = 1 
325$: MOV RMDSI,$SBDDAT § :BAD DATA FOR TYPEOUT 
BIC #*CLBT, SBDDAT 
CMP SEDDAT. ;SBDDAT ;1S LBT CORRECT?? 
BEQ 330$ sYES!! 
ADD #4, (SP) 
MOVB #17,a(SP) sERROR NUMBER 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC pa(SP)+ “REPORT LBT IS WRONG 
SUB #10, ( sRESTORE (SP) 
NOP 
;REPORT ERROR IF ‘‘AOE'' IS INCORRECT 
$30$: CLR ;SET FOR AOE = 0 
BIT #IAE RMERTI :WAS ‘IAE’’ DETECTED?? 
BNE 340$ :YES-"AOE’’ SHOULD BE 2 
500$.#560. ; SHOULD AOE BE SET?? 
TST 05$ MAYBE 
BNE 35$ YES 
TST 10$ 
BNE 335$ sYES !! 
BIT #F2,515$ sWAS THIS READ OR WRITE CHECK 2? 
BEQ 340$ “NO !! 
TST RMWCI :WAS ALL DATA TRANSFERRED ?? 
- BEQ 340$ “YES ! 
335$: MOV #ADE .SGDDAT SET For AOE = 1 
eS 50 [CLEAR EXPECTED TRACK 
MOV #1,510$ “EXPECT SECTOR = 1 
340$: Moy RMER1 I. SBDDAT “BAD DATA FOR TYPEOUT 
CMP AT.SBDDAT 1S AOE CORRECTY?? 
BEQ 345$ *YES!! 
ADD #4, (SP) 
MOVB #26 a(SP) sERROR NUMBER 
SUB isé#2, (SP?) SMOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ *REPORT AOE IS WRONG 
SUB #16, (SP) “RESTORE (SP) 
NOP 
“REPORT ERROR IF RMDA IS NOT CORRECT 
345$: BIT #IAE RMERTI *WAS THERE AN IAE ERROR 2? 
¥ “YES = DONT CHECK RMDC 
05S, $GDDAT *SETUP EXPECTED DISK Sk ADDRESS 
0$ ,.SGDDAT , 
RMDAI,SBDDAT §; SETUP RECEIVED DISK ADDRESS 





SEQ 0200 


eens 
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SECONDARY ERROR CHECK SUBROUTINE 

172 050404 023737 001140 001142 CMP $GDDAT.SBDDAT :COMPARE EXPECTED & RECEIVED 
173 050412 001413 BEQ 350$ ‘BRANCH IF EQUAL 
174 14 716 AND #4, (SP) 
175 050420 11277 1 000000 MOVB agi a(SP) :ERROR NUMBER 
17 162716 2 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
1 736 JSR PC-a(SP)+ :REPORT BAD DISK ADDRESS 
178 162716 000010 SUB #10, (SP) *RESTORE (SP) 
} 0 24 | NOP 
181 “REPORT ERROR IF RMDC IS INCORRECT 
182 050442 013737 050550 001140 350$: MOV $GDDAT sSETUP EXPECTED CYLINDER 
1 7 176000 114 #*C1777,$GDDAT | 
1 13737 00 114 RMDCI,SBDDAT ;SETUP RECEIVED CYLINDER 
185 7 001140 00114 SGDDAT .SBDDAT ‘COMPARE CYLINDERS 
1 1413 355$ ‘BRANCH IF EQUAL 
1 74 r16 #4, (SP) 
1 11277 g 000000 432 a(SP) ZERROR NUMBER 
1 162716 #2, (SP) “MOVE SP TO RETURN FOR ERROR 
1 1 736 PC a(SP)+ sREPORT BAD CYLINDER 
191 14 166716 000010 #10, (SP) SRESTORE (SP) 
19¢ 20 240 
194 5 716 000004 355$: ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
; 1 3776 000000 TsTe a(SP) “WAS ERROR FOUND?? 
197 5 716 000004 ADD ry (sP) \ :MOVE (SP) TO ERROR RETURN 
199 542 1 at 000004 360$: SUB #4, (SP) :MOVE (SP) TO NO ERROR RETURN 

: 20 365$: TS PC 

5 05055 500$: .WORD 0 : CYLINDER 

5055 505$: J = TRACK 
5 510$:  .WORD : SECTOR 
5 0 36 515$: | .WORD “FUNCTION CODE 
520$: .WORD 0 :TOTAL # OF TRACKS = LAST TRACK +1 


re ee me 
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COMPOSITE ERROR CHECK SUBROUTINE 


DWONOULSWN—OVOaNAULS WN 


eed cd ceed ceed eed weed cad ened cen ond 
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-SBTTL COMPOSITE ERROR CHECK SUBROUTINE 





RMER2 AF 


$ AND REPORTS AN 


rue San is CHECKS THE STORED CONTENTS OF RMER1 


AND 
R MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
AN ERROR IF ANY BITS ARE LEFT ON AFTER 






THE MASKS ARE APPLIED. 












CALL: 
7(1) JSR PC, CMPERRSTS 
: WORD 
: “ WORD 
; BR 2??? 
: NOP 
: ERR D BY SUB 
: JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 22? RETURN HERE IF NO MORE ERRORS 
:NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
‘BE ZERO 
CMPERRSTS: 
:MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 
MOV RMER11.$1 TH sSTORE RMER1 AT TEMP STORAGE 
BIC a(SP ) STMP “MASK ER 
ADD 20) | MOVE SP TO NEXT MASK 
MOV Rate 1,$TMP2  =:STORE RMER2 AT TEMP STORAGE 
BIC a(SP) ,$TMP2 sMASK RMER2 
:CLEAR USER'S ERROR fate 
D :MOVE SP TO USER'S ERROR CALL 
CLRB ets ‘CLEAR ERROR 
SUB #4, (SP) ‘LEAVE SP AT NO ERROR RETURN 
:SEE IF THERE WERE ANY ERRORS IN RMERI .E. 
Ist STP TANY "ERRORS to” REPORT??. 
MOV STMP1,SBDDAT RECEIVED STATUS FOR TYPEOUT 
CLR SGDDAT sEXPECTED STATUS FOR TYPEOUT 
ADD #4, (SP) VE SP TO USER’ CALL 
MOVB acsP) SCORRECTABLE DATA CHECK ERROR # 
SUB ‘MOVE SP TO RETURN FOR ERROR 
JSR pc at “aCsPDe *REPORT ERROR VIA USER 
SUB ‘MOVE SP BACK TO BRANCH 
NOP 
5$: 
:SEE IF 


THERE ARE_ANY ERRORS TO REPORT IN RMER2 (STMP2) 
TST sre + + acaba IN RMER2? 


MOV STMP2,SBDDAT 
CLR SGDDAT 

#4, (SP) 
#67,a(SP) 


sRECEIVED STATUS FOR TYPEOUT 
S TY 4 





SEQ 0202 
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CHECK SUBROUTI 
Ager 000002 
000010 


000240 
§ 090000 


716 000004 
1 at 000004 
20 


10$: 


Peas). 
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sMOVE SP TO RETURN FOR ERROR 


;REPORT ERROR 





VIA _USER 
;MOVE SP TO NO ERROR RETURN 


sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
“ | At SP_ TO USER'S ERROR CALL 
, THER E AN ERROR CALLED?? 


eyes: ~- MOVE SP TO ERROR RETURN 


0$: 
0$: 


TSTB 


9($P) | 
0$ 

#4, (SP) 
#4, (SP) 
PC 


sMOVE SP_TO NO ERROR RETURN 


;RETURN TO USER 


SEQ 0203 
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DEVICE SELECT SUBROUTI 


051144 
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001466 
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-SBTTL DEVICE SELECT SUBROUTINE 


; THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 


: TEST QUEUE. 

: CALL: 

*(1) JSR PC DEVSEL 

7(2) BR 23 RETURN IF NO ERROR 

7(3) NOP RETURN IF ERR 

7(4) ERROR ERROR DEFINED BY SUBROUTINE 

DEVSEL: 

:CLEAR USER'S ERROR CALL 
ADD #4, (SP) :MOVE SP TO USER'S ERROR 
CLRB 5¢8P) | [CLEAR LOW ORDER BYTE OF CALL 
SUB #4,(SP) “MOVE SP BACK 


sSAVE USER"S INFORMATION AND SETUP REGISTERS 
MOV E C, > a ree) ¢sPUSH ERRVEC ON STA 


MOV ERRVEC#2, =(SP :PUSH TERRVEC 2 ON STACK 
MOV RO. ~(SP SH RO’ ON STACK 

MOV 3} ‘BUSH R1 ON STACK 

MOV F208 ERRVEC ‘SETUP FOR BUS TIMEOUT 

MOV #PR6 ERRVEC#2 

MOV E.R :RO = UNIBUS ADDRESS 


MOV TSTOUE RI :R1 POINTS TO DEVICE NUMBER 


;SELECT DEVICE AND VERIFY THAT DEVICE 1S AVAILABLE 
MOVE S2(RO) :WRITE UNIT SELECT BITS 
MOV RACST(RO) STMPI :GET FDVa STATUS 

MOV _-RACSZKRO)-STMPO GET “NED” STATUS 


BIT ett IS DEVICE NONEXISTENT ? 





ADD 10(SP) :MOVE SP TO USERS ERROR CALL 
: nove Ait .at0CsP> :WRITE ERROR NUMBER 
10S: BIT By /STMP1 i1S DEVICE AVAILABLE ? 
ADD 10(SP) ‘MOVE. SP TO USERS ERROR CALL _ 
Hove ait2, @10(SP) WRITE ERROR NUMBER 


“HANDLE BUS TIMEOUT 
20$: CMP (SP)+, (SP)+ :ADJUST SP 


ADD #4,10(SP *MOVE SP TO USERS ERROR CALL 
MOVB ails ai0(sP> ‘WRITE BUS TIMEOUT NUMBER 
30$: SUB 2,10(SP 3ADJ UST RETURN, TO "NOP* PRECEDING 
sig ‘THE ERROR C 
RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 


::POP STACK INTO R1 
POP STACK INTO RO 
33:POP STACK INTO ERRVEC+2 


MOV (SP)+,R1 
MOV (SP)+,RO ae 
MOV (SP)+, ERRVEC+2 


K 1 
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DEV ie E SELECT SUBROUTINE 


LE 
51 O1esae 7 000004 MOV (SP) + .ERRVEC 
51 RTS PC 


3zPOP STACK INTO ERRVEC 
sEXIT 


SEQ 0205 
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SEEK STATUS CHECK SUBROUTINE 


L 16 


-SBTTL SEEK STATUS CHECK SUBROUTINE 


THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STAT 
;STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 


‘THE SUBROUTINE RETURNS TO THE CALLING ROUTINE. if in Fhe ERROR_IS A 


AFTER 


HAVING LOADED THE APPROPRIATE ERROR 
SEEK STATUS IS CHECKED AS FOLLOWS: 


3 OF THE "CALLING ROUTINE. 


‘CALL: 
1) 


SEKSTS: 


PC,SEKSTS 
299 


PC ,a(SP)+ 


CLEAR USERS" ERROR CALL 
NOP 


ADD 
CLRB 
SUB 
CLR 


: TEST FOR MASSBUS CONT 
LOCAL — 


BEQ 
BIT 
BNE 


| th, (SP) 


a(SP) 


#4, (SP) 


300$ 


ipni Ai RAERTI 


HOPE, RMER21 
1$ 


"ERROR" 


RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY S$ 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


sMOVE (SP) TO ERROR CALL 
CLEAR NUMBER 
sMOVE (SP) TO NO ERROR RETURN 
CLEAR ERROR FLAGS 





ROL, BUS PARITY ERROR WHEN WRITING 


= 1 AND ‘DPE’ 
cNOT! PARITY ERROR DETECTED?? 


WAS IT DUE TO CONTROL BUS?? 
NOT SURE!! 


: REPORT — anny ERROR VIA as ERROR CALL 


;DETERMINE THE VALUE OF 
: AND US OF 


i$: 





BIS 
MP 










f 

#50, a(SP) 

PC. a(SP)+ 
#10, (SP) 






e 


SKI, 
RMDCO,#560. 


D 
pert I green 





s EXPEC sat 

SRECEIVED STATUS 

sMOVE STACK TO USER'S ERROR 
sERROR # 

MOVE SP TO RETURN FOR ERROR 


sRESTORE STACK 
;IAE SHOULD BE ZERO 


JAE'’ STATUS BASED ON TRACK, SECTOR, CYLINDER 

‘SSEI'’ BIT DURING A SEEK OPERATION. ALSO, SET '‘SKI"’ 

:IF CYLINDER ADDRESS IS TOO LAR 
MOV #IAE DAT 


;SETUP FOR IAE = 1 
7SETUP FOR SKI = 1 
:GREATER THAN LAST CY 
;YES = CYLINDER IS 


YLINDER ? 
INVALID 


#SKI1,300$ SCLEAR SKI ERROR FLAG 
RMDAO+1 ,.LSTRK+1 sGREATER THAN LAST TRACK ? 
3$ YES = TRACK IS INVALID 


RMDAO #29. 


sSECTOR > 29. ? 


SEQ 0206 


a cee ee 


TC ————————————— 
B 1 
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SEEK STATUS CHECK SUBROUTINE 

















58 1 1 420 2$ :BR IF NO 
59 051 010000 001444 #FMT16,RMOFO :18 BIT FORMAT ? 
60 051 $16 ‘YES = SECTOR IS INVALID FOR 18 BIT MODE 
é 31 1 001420 000036 RMDAO, #30. “SECTOR > 30. ? 
1400 1014 ‘BR IF NO 
1 001000 001444 #SSE1,RMOFO 71S SSEI CLEAR ? 
64 0514 14 [YES = SECTOR IS INVALID FOR 16 BIT MODE 
65 0514 3727 001420 000037 RMDAO,#21. - :SECTOR > 31. ? 
6 51420 101002 3$ ‘YES = SECTOR IS INVALID 
$ 051422 005037 001140 2$: CLR SGDDAT :""IAE'’ SHOULD = 0 
; COMPARE EXPECTED AND RECIEVED "‘IAE’’ STATUS 
71 51426 13737 001352 001142 MOV R1 + $BDDAT :1S IAE 0K?? 
es 514 737 (175 001142 BIC #°CIAE,SBDDAT :SAVE _IAE BIT FOR COMPARE 
5144 7 001140 001142 CMP DAT,$BDDAT :CORRECT "IAE’’ STATUS ? 
74 0514 1004 BNE *BR IF 
75 0514 7 040006 052464 BIC #SK1,300$ “CLEAR SKI FLAG 
i: 31 13 “- BR 5$ "GO CHECK NEXT ERROR 
8 nese — >REPORT INCORRECT “JAE STATUS VIA USER'S ERROR CALL 
31466 112776 000051 000000 mOvB «#51, a( SP) sERROR 51 
1 051474 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
31300 004 JSR PC a(sP)+ sREPORT INCORRECT IAE 
51502 162716 000010 SUB #16, (SP) sRESTORE (SP) 
1306 000240 NOP 
85 05151 5$: 
sREPORT ANY IVC ERROR AS 
: IVC ERROR WITH VOLUME VALID ZERO 
; E UME VALID IS SET 
51510 032737 010000 001400 :IVC ERROR?? 
91 05151 0014 7 i 
313 3 7 001140 ‘EXPECTED STATUS 
51524 013737 001400 001142 sRECEIVED STATUS 
s faikse STE Gans ‘Sanco ewe 
Ss Salaze G1eree SOS 0088 
51 3 001403 
51554 112776 000061 000000 ZERROR 61 IF WW = 1 
51 162716 2 51$: “MOVE SP TO RETURN FOR ERROR 
H 183776 000010 ERECORT ERROR VIA USER 
1259 48é 4 : 
1 1576 013737 0014 1142 52$: RMER2Z1, SBDDAT sRECEIVED STATUS 
1 1604 7 00709 091143 | #*CSKI.SBDDAT :CLEAR DONT CARES 
1 1612 013737 032464 1140 :GET EXPECTED SKI STATUS 
1 1 7 137777 001140 #°CSKI,$GDDAT :CLEAR DONT CARES 
1 1417 53$ “BRANCH IF 0 EXPECTED 
110 sREPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED) 
HF a: ie 0406v0 001142 BIT sis »SBDDAT suas | SkI DETECTED ?3 
113 051 5 | ADD SP) SMOVE ép TO USERS ERROR CALL 
114 051 776 iey 000000 MOVB 436 /a(SP) WRITE ERROR NUMBER 
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K SUBROUTINE 
162 716 00000 SUB 2, (SP) sMOVE SP TO ERROR RETURN 
JSR PC xa(SP)+ ‘REPORT ERROR AND RETURN 
1 16 000010 SUB 0, “MOVE SP TO NO ERROR 
Agere BR *GO TO NEXT ERROR CHECK 
53$: 
:REPORT ERROR IF SKI IS SET 
032737 040000 001142 BIT #SK1,$BDDAT 31S SKI SET 72 
1413 BEQ = SKI IS OK 
716 900004 ADD #4, (SP) ‘MOVE (SP) TO ERROR 
776 4 000000 ~~ MOVB #54,a(SP) ‘LOAD ERROR NUMBER 
1 Z16 000002 SUB #2. (SP) ‘MOVE SP TO RETURN FOR ERROR 
7 _ JSR .a(SP)¢ sREPORT SEEK ERROR 
1 216 000010 SUB wibets *RESTORE (SP) 
“REPORT ANY DEVICE CHECK 
$67639 000200 001400 54$: gIT #DVC ,RMER2I sWAS THERE DVC DURING SEEK?? 
3087 001140 CLR DAT SEXPECTED STATUS 
01 001400 001142 V SBDDAT :RECEIVED STATUS 
716 000004 ADD (SPS 
112776 000055 000000 i. a(SP) sERROR #55 
162716 000002 SUB » (SP) “MOVE SP TO RETURN FOR ERROR 
004736 JSR C.a(SP)+ *REPORT ERROP VIA USER 
162716 000010 SUB Wi" (SP) “RESTORE SP 
000240 NOP 
SREPORT ANY “‘OPI"* ERROR A ITH MOL = 0, OR OPI 
*BECAUSE ON CYLINDER LATC T RESET 
052737 020000 001352 6$: BIT #OP1 .RMER :“OPI"’ ERROR?? 
3087 001140 SEXPECTED STATUS 
13737 001352 001142 sRECEIVED STATUS 
ee IG (inte ete 
050737 10000 001350 at MEDIUM ON LINE?? 
11 6 900053 000000 “YES = CHANGE ERROK NUMBER 
162716 2 ;MOVE SP TO RETURN FOR ERROR 
736 PC a(SP)+ PORT ‘OPI'’ ERROR 
1 Zi6 000010 AT (SP) “RESTORE (SP) 
| 0, AND ‘ATA’, ‘MOL’ AND “Vy"' = 
013746 001350 S1,-(SP) 
eri6 0476 A*CCATAIPIP!MOL!VV>, (SP) 
2726 110100 #ATA!MOL VV, (SP)+ : siciiinie 
005 052434 14$ ‘RMD t 18 OK 
Bu Sol IF MOL = 0 AND OPI = 0 
7 010000 001350 #AOL .RADSI 1S MOL RESET?22 
020000 001352 1,RMER1I : OPI SET 
4 YES = DONT REPORT ERROR 
3737 001350 001140 RMDSI,$GDDAT EXPECTED STATUS 





CS —_sthtEseen - ————_— —-—-. ——— 


ee - ee 


SEQ 0209 
















Ss TES 
#10, (SP) sRESTORE (SP) 









172 0521 52737 01 114 BIS #MOL.$SGDDAT 
178 5 165 1 taf 1 Ooi MOV RADS! -SBDDAT sRECEIVED STATUS | 
175 052152 11 oe 000000 MOVB M62 a(SP) | 
1%6 160 16271 SUB » (SP :MOVE SP TO RETURN FOR ERROR 
1 1 JSR PC a(SP)+ [REPORT ERROR VIA USER 
178 ; 1 162716 000010 SUe #16, (SP) 
0521 24 NOP 
181 sREPORT AN ERROR IF "PIP" IS STIL SET AND SKI NOT SET 
1764 7 7 020000 001350 10S: BIT #P1P.RADSI 31S “PIP STILL SET?? 
184 05 040000 001400 #SKI,.RMER2ZI “WAS "'SKI''SET?? 
185 052212 001024 11$ ‘YES=DONT REPORT PIP 
186 052214 013737 001350 001140 *EXPECTED STATUS 
187 05 7. 020000 001142 
1 09 13737 001350 001142 sRECEIVED STATUS 
1 716 000004 “MOVE (SP) TO ERROR 
1 42 112776 000056 000000 ; ERROR NUMBER 
191 162716 000002 L :MOVE SP TO RETURN FOR ERROR 
198 52254 736 PC-a(SP)+ sREPORT ‘PIP’’ SET AFTER SEEK 
19 36 162716 000010 #10, (SP) sRESTORE (SP) 
194 5 240 
196 “REPORT AN ERROR IF "‘ATA'’ IS NOT SET 
197 5 64 052737 100000 001350 11$: BIT #ATA,RMDSI WAS ATA" SET 2? 
199 052274 Eta 001350 001140 RMDSI,S$GDDAT EXPECTED STATUS 

5 : 052737 110600 001140 #ATA!MOL !DPR!DRY, 

1 052310 013737 001350 001142 RMDSI sRECEIVED STATUS 
52316 716 000004 #4, (SP) “MOVE (SP) TO ERROR 
112776 000057 000000 #57,a(SP) ;LOAD ERROR NUMBER 
5 162716 000002 #2, ( sMOVE SP TO RETURN FOR ERROR 
736 PC,a(SP)+ *REPORT ATTENTION NOT SET DURING 






0 -REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 
: 3 44 32737 000100 001350 3g. BIT j 31S W = 0 ?? 
54 010000 001400 #IVC RMER2I 71S IVC ALSO 0 2? 
4 1024 “NO = IVC IS SET 
5 i g 1350 it 140 RMDSI,SGDDAT =: EXPECTED STATUS 
$ 1 (37 ote 001142 SBDDAT =; RECEIVED STATUS 
52412 112776 000000 a(SP) sERROR #64 
52420 162716 2 #2, (SP) *MOVE SP TO RETURN FOR ERROR 
424 PC a(SP)+ 
426 162716 000010 #10, (SP) 
4 24 
524 148: 


sMODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
058436 Se2ri6 ADD 
524 16 000004 ADD #4,(SP) sMOVE (SP) TO ERROR CALL 
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$ 50462 00020 


052464 000000 


SUBROUT INE 


000004 


TSTB 


9{3P) 


#4, (SP) 
16§ 


#4, (SP) 
PC 


;WAS ERROR CALLED?? 
[MOVE TO ERROR RETURN 


sMOVE (SP) TO NO ERROR RETURN 
sRETURN 


sERROR FLAGS 


A ee 
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-SBTTL CONTROLLER CLEAR SUBROUTINE 


THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
3 AND DRIVES, THEN SELECTS THE DRIVE. 


SCALL: 


CNTCLR: 


10$: 





<< 


EEE = — 


P °) 
— 
WH 


PC, CNTCLR 
22? 


RO. (SP) 
Raver (SP) 
ERRVEC+2,~(SP) 
#10$, ERRVEC 
#PR6,ERRVEC +2 
S$BASE ,RO 
#CLR.RMCS2(RO) 


(R1) ,RACS2(RO) 
508 






(SP)+, (SP)+ 
oe o 10(SP) 
Ag (SP) 
10(SP) 


(SP) +, ,ERRVEC+2 
oe -ERRVEC 


(SP)+,R 
(SP)+,RO 
PC 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 





;sPUSH RO ON STACK 
*PUSH R1 ON STACK 
:cPUSH ERRVEC ON STACK 
ERRVEC‘2 ON STACK 
s SETUP FoR BUS TIMEOU 


3RO = UNIBUS ADDRESS 
:CLEAR MASSBUS i 
sGET DEVICE UNDER TEST 
“SELECT DEVICE 





sADJUST STACK 

;MOVE SP TO USER'S ERROR CALL 
sWRITE THE ERROR NUMBER 
ADJUST SP TO RETURN TO ERROR 
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-SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 


sTHIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
“STATUS STORED IN THE GET BUFFER. THIS SUBROUTINE D ONLY BE 
sUSED FOLLOWING A CONTROLLER CLEAR OPERATION, I... WRITING A 1 IN BIT 
75 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 


sSTATUS PERTINENT TO_ THE DEVICE IS NOT CHECKED. IN PARTICULAR, THE 
sFOLLOWING STATUS BITS ARE NOT CHECKED: 























: ATA. ERR.PIP,MOL ,WRL,LBT.PGM, VV,0M,UNS, SKI ,DVC 
3CALL: 
7(1) JSR PC,CLRSTS 
: BR 229 RETURN HERE IF NO ERROR 
; NOP RETURN HERE TO REPORT AN ERROR 
: ERROR NUMBER DEFINED BY SUB 
; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 22? RETURN HERE IF NO MORE ERRORS 
CLRSTS: 
sCLEAR USER'S ERROR CALL 
AD #4, (SP :MOVE SP TO ERROR 
LRB = @( SP) [CLEAR ERROR NUMBER 
SUB #4, (SP) “MOVE SP BACK TO NO ERROR 
“REPORT ERROR IF RMCS1 NOT INITIALIZED 
4$: MOV §_ RMCS1I,$SBDDAT ; VERIFY RMCS1 3 
BIC #SC $BDDAT SIGNORE SPECIAL CONDITION 
MOV ADVAIRDY SGDDAT :EXPECT DVA & RDY 
CMP T,SBDDAT :COMPARE EXPECTED, RECEIVED 
BEQ 5 sBRANCH IF 
ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 
MOVB #126.a(SP) ‘WITE ERROR NUMBER IN CALL 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR. —s- PC. a(SP)+ : T ERROR VIA USER 
sug #16, (SP) <MOVE SP BACK TO NO ERROR 
“REPORT ERROR IF RMBA NOT RESET 
S$: CLR T :VERIFY RMBA IS ZERO 
MOV RMBAI , SBDDAT 
BEQ 7$ - $BRANCH IF ZERO 
ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 
MOVB #127.,a(SP) “WITE ERROR NUMBER IN CALL 
SUB 2, (SP) *MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ *REPORT ERROR VIA USER 
sug #10, (SP) *MOVE SP BACK TO NO ERROR 
“REPORT ERROR IF RMCS2 NOT INITIALIZED 
7$: MOV RMCS21,$B8DDAT  :VERIFY RMCS2 
MOV -(SP *:PUSH R1 ON STACK 
CL - SEXPECT IR & UNIT NUMBER 
MO R1 *R1 = ADDRESS OF TEST QUE 


TS 
(R1), (SP) 
#IR, (SP 
(SP5+,$GDDAT 


S535 





SEQ 0212 
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58 05 77 01 1 (SP)+,R1 ::POP STACK INTO R1 
59 3 77 3737 001140 001142 DAT ,SBDDAT : COMPARE E EXPECTED & RECEIVED 
61 03 716 #4. (SP M0 VE SP TO USER'S ERROR CALL 
62 0 112776 130 000000 #150 a(sP) “WITE ERROR NUMBER IN CALL 
6 16 162716 2 #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
64 PC a(SP)+ “REPORT ERROR VIA USER 
7 09 16271 000010 ot #10, (SP) :MOVE SP BACK TO NO ERROR 
é -REPORT ERROR IF RMER1 NOT RESET-IGNORE UNS 
05 7 00114 $s: CLR SGDDAT sVERIFY RMERI 
5 1 135 001142 RMER11,$BDDAT 
g 7 04 114 BIC »SBDDAT Z IGNORE UNSAF 
71 053052 001413 BEQ “BRANCH IF ZERO 
5 716 ADD “MOVE SP TO USER'S ERROR CALL 
112776 000131 000000 MOVB #131,a(SP) “WITE ERROR NUMBER IN CALL 
oh 5 162716 000002 SUB #2. (§P) sMOVE SP TO RETURN FOR ERROR 
75 05 736 C,a($P)+ “REPORT ERROR VIA USER 
i: 5307 162716 000010 4 f6nC3 :MOVE SP BACK TO NO ERROR 
53100 240 NOP 
8 “REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC.LS.LST 
33102 013737 001362 001142 13$: MOV RMR I, SBDDAT - VERIFY ROAR 
53110 042737 6 001142 BIC  #WC!LSILST, SBDDAT IGNORE WORD CLOCK, SCT, TRK 
1 053116 016737 10 001140 MOV f sEXPECT GRITE DATA BIT 
053124 023737 001140 001142 CMP DAT,SBDDAT :COMPARE EXPECTED AND RECEIVED 
331 1413 BEQ ‘BRANCH IF 
84 0531 716 ADD ‘MOVE SP TO USER'S ERROR CALL 
5 053140 112776 000133 000000 MOVB sWITE ERROR NUMBER IN CALL 
146 162716 2 SUB sMOVE SP TO RETURN FOR ERROR 
15 736 JSR *REPORT ERROR VIA USER 
33154 1 Zi6 000010 SUB “MOVE SP BACK TO NO ERROR 
*REPORT AN ERROR IF RMEC2 IS NOT RESET 
91 0531 005037 001140 17$: CLR DAT s EXPEC ZEROS | 
3 33166 13737 001404 001142 mov C21,$B8DDAT :VERIFY RMEC2 = 0 
94 05317 716 sp) :MOVE SP TO USER'S ERROR CALL 
5 112776 135 000000 sis a(SP) sWITE ERROR NUMBER IN CALL 
10 162716 000002 SUB » (SP) “MOVE SP TO RETURN FOR ERROR 
9 14 736 JSR Pe pa(SP)+ “REPORT ERROR VIA USER 
3 | 1 216 000010 6,(SP “MOVE SP BACK TO NO ERROR 
1 “REPORT ERROR IF RMAR2 NOT INITIAL IZED~IGNOR ROA,ROB 
5 4 19$: RAMR2T,SBDDAT _ ; VE 
BIC #ROA! AT 
4 OY T sEXPECT TEST BIT ON 
105 BEQ 
1 ADD :MOVE SP TO USER'S ERROR CALL 
1 MOVB *WITE ERROR NUMBER IN CALL 
1 SUB ;MOVE SP TO RETURN FOR ERROR 
1 74 JSR “REPORT ERROR VIA USE 
110 7 UB “MOVE SP. BACK 10 NO ERROR 
1g “REPORT ERROR IF penn NOT RESET-IGNORE SKI, DvC 
11 7 001140 51$: SGDDAT sEXPECT ALL ZEROS 
114 923346 903935 OO A60 001142 nov RMERZI1,$BDDAT :VERIFY RME ALL f 
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115 040200 001142 BIC I!DVC,S$BDDAT ; IGNORE DEVICE ERRORS 
116 BEQ *BRANCH IF OTHER BITS 0 
117 05 ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 
118 174 000000 MOVB nie a(sP) :WITE ERROR R IN CALL 
11 2 SUB f , (SP) “MOVE SP TO RETURN FOR ERROR 
1 JSR £.a(SP)+ sREPORT ERROR VIA USER 
1 05 000010 SUB WiO(s “MOVE SP BACK TO NO ERROR 
1 g gREPORT ERROR IF finns NOT INITIALIZED 
124 0 001350 001142 r) MOV DAT “TEST DRIVE STATUS REGISTER 
125 1771 114 BIC TPcaRYIDER SBDDAT 
1 6 900600 001140 #DPR! DRY OSCDBAT T : EXPECTED DRIVE STATUS 
3 1140 001142 CMP DAT, RSDDAT : COMPARE EXPECTED @ RECEIVED 
1 ADD (SP) As VE SP TO USER'S ERROR CALL 
1 134 000000 MOVB aise a(SP) ° 
1 2 SUB 3 
1 JSR Pe “a(SP)s 
000010 SUB —— #18,0S *MOVE SP BACK TO NO ERROR 
1 22$: ADD #4, (SP) :MOVE SP TO ERROR CALL 
: Hindi Tse SP) :MAS AN ERROE DETECTED?? 
5 000004 ADD #4, (SP) sYES - MOVE TO ERROR RETURN 
140 05 000004 3$: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 
141 05 4$: NOP 
142 05 RTS PC 


NS a a 
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1 .SBTTL PACK ACKNOWLEDGE STATUS CHECK 
§ :THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
i COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
5 *REPORTED TO THE USER VIA THE USER'S ERROR CALL. 
7 CALL: 
K 7(1). “JSR PC,ACKSTS 
9 : BR 229 RETURN HERE IF NO ERROR 
10 : NOP RETURN HERE TO REPORT AN ERROR 
11 : ERROR ERROR NUMBER DEF SUB 
1 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
13 : 22? RETURN HERE IF NO MORE ERRORS 
15 053464 ACKSTS: 
i$ SCLEAR USER'S ERROR CALL 
18 05 062716 000004 ADD #4, (SP) sMOVE SP TO ERROR CALL 
19 05 105076 000000 CLRB agp) [CLEAR LOW ORDER BYTE 
53474 162716 000004 SUB Th (SP) “MOVE SP BACK 
: sREPORT AN ERROR IF “Vv'' IS 0 
0535 032737 000100 001350 BIT #VV.RMDSI :1S VOLUME VALID SET?? 
4 05 1024 BNE 1$ YES! ! 
§ 053510 013737 001350 001140 MOV ADSI .SGDDAT *EXPECTED STATUS 
516 03 737 000100 1140 BIS #VV,SGDDAT 
5 324 13737 001350 001142 MOV RMDSI.$BDDAT §; RECEIVED STATUS 
8 053532 716 ADD { ; SP TO ERROR CALL 
05 536 112776 000155 000000 move 4#155.a(sP) :WRITE NUMBER IN ERROR CALL 
53544 162716 | SUB “MOVE SP TO RETURN FOR ERROR 
1 053550 004736. JSR C.a(SP)+ “REPORT THE ERROR 
53552 162716 000010 SUB W 10,(S ‘MOVE SP BACK TO BRANCH 
33596 000240 NOP 
: 560 1$: 
:REPORT AN ERROR IF ‘MOL’ IS 0 
053560 030737 010000 001350 BIT #MOL .RMDSI 1S MOL SET?? 
5 286 01 oe 001350 1140 MOV RMDSI,SGDDAT _ : EXPECTED STATUS 
40 576 052737 01 1140 BIS AT 
4 13737 001 001142 MOV RMDSI,SBDDAT | RECEIVED STATUS 
42 12 716 ADD #4, ( > SP TO ERROR CALL 
43 053616 112776 1 000000 MOvB #61,a(SP) “WRITE NUMBER OF ERROR IN CALL 
44 053624 162716 2 SUB ‘ “MOVE SP TO RETURN FOR ERROR 
45 05 736 JSR PC’ a(SP)+ “REPORT TH 
46 5 162716 000010 SUB #16, (SP) “MOVE SP TO BRANCH 
4 3 240 NOP 
‘3 0 23: 
:SEE IF “UNS’,"OPI'’, "RMR, ILR', OR “ILF’ IS SET 
1 053640 032737 060007 001352 BIT S!OPI!RMRIILRIILF RMERTI 
5 SS BR Ms 
:REPORT AN ERROR IF “UNS'' IS SET 
5 o33e38 ni 040000 001352 BIT suns /RMER1I :WAS UNS SET?? 
5 3 13737 001352 001142 MOV RMER1I,$BDDAT :RECEIVED STATUS 





K 
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13737 00135 114 MOV RMER1I,$GDDAT ;EXPECTED STATUS | 
au Bi tErt, 6 | 


BIC | 
716 ADD a $P) :MOVE SP TO ERROR CALL | 
112776 : 000000 MOVB #42,a(SP) “WRITE NUMBER OF ERROR IN CALL | 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 

JSR PC-a(SP)+ SREPORT THE ERROR VIA USER 
162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 


‘3S: 


sREPORT ANY OPI ERROR 
001434 020000 001352 BIT #0PI ,RMER11 +1 ial SET ?? 
1 


; 7 00135 001142 MOV RMER1I,$BDDAT :RECEIVED STATUS 
MOV 1.$GDDAT EXPECTED STATUS 
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sMOVE SP TO ERROR CALL 
112776 000043 000000 #43, a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
’ “MOVE SP TO RETURN FOR ERROR 
004 JSR PC-a(SP)+ : T THE ERROR VIA USER 
162716 000010 : SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
000240 NOP 
010 4$: , 
sREPORT ANY RMR ERROR 
054010 032737 000004 001352 BIT #RAR, RMER1I sWAS RMR SET?? 
54016 001424 BEQ NO! ! 
054020 013737 RMER11,$BDDAT :RECEIVED STATUS 
340 6 013737 RMER1I,$GDDAT EXPECTED STATUS 
34 737 $GDD 
0 042 716 #4. (SP) 
34046 112776 #44 ,a(SP) 
54054 162716 #2, (SP) 
54060 004736 PC-a(SP)+ 
34062 162716 #16, (SP) 
S888 
ILR ERROR 
54070 032737 #ILR-RMERII sWAS ILR SET?? 
5407 1424 NO! ! 
1 13737 RMER11,$BDDAT :RECEIVED STATUS 
i 1 13737 RMERTI,SGDDAT :EXPECTED STATUS 
101 ? #ILR,SGDDAT 
102 054122 716 #4. (SP) :MOVE SP TO ERROR CALL 
1 1 6 112776 #65 a(SP) “WRIT R RROR IN CALL 
1 162716 P ‘MOVE SP TO RETURN FOR ERR 
1 3414 004756 PC-a(SP)+ ‘REPORT THE ERROR VIA USER 
1 14 162716 #10, (SP) “MOVE SP TO NO ERROR RETURN 
1 54 240 
: 15 6$: 
11 , :REPORT ANY ILF ERROR 
HE a ae 000001 001352 BIT MILF RMER'I WAS, ILF SET?? 
11 1 13737 00135 1142 MOV RMER11,$BDDAT :RECEIVED STATUS 
114 0541 of 7 138 oor 1e6 : MOV RMER1I,$GDDAT ;EXPECTED STATUS 


Re 
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PACK ACKNOWLEDGE STATUS CHECK 
ni 
es 
14 
} 000010 
1 
i 
124 
igs geaae gaze 
1 i716 
: 4 716 000004 
1 716 000004 
; 1 ‘& 


1 001140 





BIC #ILF .$G SGDDAT 
sMOVE SP TO ERROR CALL 
PG me [WRITE NUMBER OF ERROR IN CALL 
#2, (SP [MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ SREPORT THE ERROR VIA USER 





HE E 

#10, (SP) :MOVE SP TO NO ERROR RETURN 
7$: 
sAUGMENT RETURN ADDRESS IF ERROR WAS FOUND 

#4, (SP) :MOVE SP TO ERROR CALL 
Tse a(SP) ;WAS ERROR FOUND?? 
ADD #4, (SP) ves: - MOVE TO ERROR RETURN 
SUB #4, (SP) 


NOP sMOVE SP TO NO ERROR RETURN 
RTS PC 





SEQ 0217 
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SUBROUTI 
-SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 


ee a ee 
——— a ee 


S SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 


THI 
“USING THE STATUS STORED IN THE GET BUFFER. 














:CALL: 
7(1) JSR PC.RCLSTS “CALL SUBROUTINE 
; BR 223 RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
: ERROR FINED BY SUB 
: JSR PC,a(SP)+ 0 SUB FOR MORE ERROR CHECKS 
22? RETURN HERE IF NO MORE ERRORS 
RCLSTS: 
:CLEAR USER'S ERROR NUMBER | 
000004 ADD #4, (SP) 
000000 CERB 0s aa (SP sCLEAR USER’S ERROR CALL 
000004 SUB #4, (SP) ‘MOVE SP BACK TO BRANCH 
sSEE IF ‘PAR’ OR “‘ILF‘’ OR "OPI" OR “IAE’’ IS SET 
022011 001352 BIT #OPI !PAR!ILF !IAE, OR MERIT 
BEQ 4$ ‘NONE ARE SET = GO TO NEXT CHECK 
REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E.. 
PART = 1 AND ‘DPE’ = 0 
000010 001352 gir #PAR.RMERI sWAS "PAR" SET?? 
000010 001400 WAS’ DPE SET?? 
ves - “a A REGISTER ERROR 
rit 001140 “EXPECTED STATUS 
135 1142 ;RECEIVED STATUS 
TO USER'S ERROR CALL 
0 000000 :WRITE ERROR NUMBER IN CALL 
2 wt ‘MOVE SP TO RETURN FOR ERROR 
Pc pa(SP)+ *60 T ERR 
000010 6,(s “MOVE SP BACK TO BRANCH 
1$: 
sREPORT ANY “ILF’’ ERROR 
000001 001352 BI! #ILF ,RMER1I sWAS ““ILF** SET?? 
1352 001140 MOV RMER1I.$GDDAT :EXPECTED STATUS 
1 00114 BIC SGDDAT 
1 114 MOV sRECEIVED STATUS 
ADD “MOVE SP TO USER'S ERROR CALL 
1 000000 MOVB “WRITE ERROR NUMBER IN CALL 
2 SUB ‘MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)* *REPORT ERROR VIA USER 
000010 SUB #10, (SP) MOVE SP BACK TO BRANCH 
23: 


SEQ 0218 
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{REPORT ANY “OPI'” ERROR AS _ 












: . OPI BECAUSE ON ns LATCH DIDN'T RESET 
gir #OPI ,RMER1I OPI SET?? 


RMER11 ,SGDDAT SEXPECTED STATUS 






#OPI AT 
RMERII.$BDDAT  ;RECEIVED STATUS 
#4. (SPS :MOVE SP TO USER'S ERROR CALL 
#72,a(SP) WRITE ERROR NUMBER IN USER'S CALL 
#MOL .RMADSI vests MOL*’ = 07? 
#73,a(SP) [NO = CHANGE ERROR NUMBER 

, 3S: #2, (SP) ;MOVE SP TO RETURN FOR ERROR 

; PC a(SP)+ “REPORT ERROR VIA USER 
#10, (SP) MOVE SP BACK TO BRANCH 


31$: 


sREPORT AN ERROR IF “‘IAE’’ IS SET 
BIT + _aieeaaaile s1S ‘IAE" SET?? 


1,$GDDAT EXPECTED STATUS 
1,$8DDAT  ;:RECEIVED STATUS 
} “MOVE SP TO ERROR CALL 
‘WRITE ERROR NUMBER IN USER'S CALL 
:MOVE $P TO RETURN FOR ERROR 

‘MOVE SP BACK TO NO ERROR RETURN 









4S: 


sSEE IF *SKI’* OR ““IVC'* OR “DVC'* IS SET 
BIT om, TT1VCtDVCCAMER I 
BEQ sNONE OF THE BITS ARE SET 








sREPORT ANY "“IVC’' ERROR AS 

; vC WITH VV = 0 

* zMAS IVC SET?? 
SEXPECTED STATUS 


IVED STATUS 
SP TO USER*S ERROR CALL 
NUMBER IN CALL 










RROR NUMBER 
5$: T FOR ERROR 
ERROR VIA USER 
BACK TO BRANCH 
6$: 
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sREPORT ANY SKI" ERROR 
BIT «SKI RRERI 








é 


sWAS SKI SET?? 
“NO! ! 





RMER2 SGDDAT sEXPECTED STATUS 
RMERST,$BDDAT  ;RECEIVED STATUS 
(SP :MOVE SP TO USER'S ERROR CALL 
[WRITE ERROR 
) ;MOVE $P TO RETURN FOR ERROR 
PC a(SP)+ “REPORT ERROR VIA USER 
| #10,(S :MOVE SP TO BRANCH 
7$: 
sREPORT ANY "DVC'' ERROR 
BIT #DVC ,RMER2I1 WAS "DVC'* SET?? 
MOV RMER21 ,$GDDAT <PRPECTED STATUS 
BIC #DVC, $GDDAT 
MOV RMER R21,$BDDAT  ;RECEIVED STATUS 
ADD Shs ;MOVE SP TO USER'S ERROR CALL 
MOVB #77 a(SP) TE ERROR 
SUB #2. (SP) “MOVE SP TO RETURN FOR ERROR 
JSR C.a(SP)¢ : T ERROR VIA USER 
sue wiOn(s “MOVE SP TO USER'S BRANCH 
8$: 
:SEE IF “PIP" AND "OM" ARE 0, AND "ATA’:,"MOL" AND "VV" ARE 1 
MOV ANDNDSI «= -(SP) PUT RMDS ON STACK 
BIC #*C<PiP IROL vv 0RATAD, (SP) 
CMP HATA! MOL! VV, (SP) + 
BNE BSS 
JMP 13$ 


85$: 
















1, RMERII 


BIS 


AT 






ADD 
: ¢ 
#2, (SP) 
JSR PC a(sP)¢ 
SUB #10, (SP 
NOP 


9S: 


sREPORT AN ERROR IF MOL = 0 AND OP 
SLINE AFTER RECALIBRATE WAS INITIATED 
B #MOL .RADSI 


sMOVE SP TO 


= 0, I.E., MEDIUM WENT OFF 
sDID MOL DROP?? 


3WAS “OPI ERROR REPORTED?? 
sYES = DON'T REPORT MOL = 0 
sEXPECTED STATUS 


sRECEIVED STATUS 
eens ERROR CALL 
sWRITE ERROR NUMBER 

MOVE SP TO ging FOR ERROR 
;REPORT ERROR VIA U 

;MOVE SP BACK TO USER'S BRANCH 









sREPORT AN ~— IF *‘vv"* = 0 AND ““IVC’’ = 0 
BIT #VV .RMDSI 


BNE 10$ 
BIT #IVC ,RMER2I 


Ae “~vV"" DROP?? 
:WAS THERE A IVC ERROR?? 





SEQ 0220 
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1330 
100 


101 
2 


000010 


RECALIBRATE STATUS CHECK S 
172 055 1 
1s Sages guus 
174 05524 4. 7 
ie Saat esr 
1s Sees BH 
178 055 162716 
179 055 736 
180 055274 162716 
181 055 000240 
188 055302 
1 
185 055 032737 
1 B22 10 001024 
187 05531 Ot3 
188 055 052737 
189 055326 0137357 
190 055 716 
191 055340 112776 
13 pee § 162716 
193 05535 736 
194 033338 162716 
195 055 24 
196 
197 055362 
198 
199 
200 

1 055 032737 
. 055 007424 
55 re 013737 
554 et 7 
5 055406 015737 
O3 3238 716 
55420 112776 
55426 162716 
32 004736 
5434 162716 
ort’ 240 
5544 






ed eed edd ed ed ed od eed 


RRS ooo 


RARARAPARAARA 


PETS aS 
rl ae “ 

~~~ en“ 
= Aaa 
ANN ~ 


TINE 


1140 
1128 
114 
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BNE :YES = DONT REPORT vv = 0 
MOV RMDSI,$SGDDAT ; EXPECTED STATUS 
MOV RNDS1 ,SBDDAT SRECEIVED STATUS 
ADD (SP) :MOVE SP TO USER'S ERROR CALL 
mMovB #101. a(SP) “WRIT OR R_IN CALL 
SUB , (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC-a(SP)+ 
: #10, (SP) :MOVE SP BACK TO USER'S BRANCH 
10$: 
sREPORT AN ERROR IF ATA IS NOT SET 
BIT #ATA,RMDSI 3WAS ATA SET DURING RECALIBRATE?? 
MOV RMDSI,SGDDAT § :EXPECTED STATUS 
BIS _—s- HATA. $GDDAT 
MOV RMDS! :RECEIVED STATUS 
ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
HOVE #162 a(SP) ‘WRITE ERROR NUMBER IN CALL 
JSR PC-a(SP)+ 
SUB #10, (SP) :MOVE SP TO USER'S BRANCH 
11$: , 
:REPORT AN ERROR IF "‘OM’’ IS NOT ZERO BECAUSE RECALIBRATE SHOULD 
SALWAYS OFFSET MODE 
gir é' »RMDSI sWAS “'OM'® RESET?? 
MOV RMDSI.SGDDAT § : EXPECTED STATUS 
BIC #08, $GDDAT 3 
MOV RMDSI,$BDDAT  :RECEIVED STATUS 
ADD #4 (SP) :MOVE SP TO USER'S ERROR CALL 
move 4#103.a(SP) ‘WRITE ERROR R 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ _ SREPORT ERROR VIA USER 
SB #16, (SP) MOVE SP TO USER'S BRANCH 
12$: | 
:REPORT AN ERROR IF ‘PIP’ IS STIL ON, I.E.. DRIVE NOT ON 
; BIT #P1P-RADSI 31S DRIVE OFF CYLINDER? 
#51 .RMERZI :WAS “'SKI"* DETECTED?? 
i *YES=DONT REPORT "PIP" 
*EXPECTED STATUS 
sRECEIVED STATUS 
SP’TO USER'S ERROR CALL 
:WRITE ERROR NUMBER 






:MOVE SP TO RETURN FOR ERROR 
:MOVE SP BACK TO USER'S BRANCH 


#2, (SP) 
PC a(SP)+ 
#16, (SP) 





SEQ 0221 
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5532 13$: 


wi 
MMA oe 
Eu 
™m 


VA 
rm 
© 


See 


oooocooeo 


MMM 


VW 


ooo 


ESTFEVSS LALA Le 


sSEE IF alt OR "RAR" OR “'UNS'’ IS SET 
Q 


oer a7 040006 001352 — ‘UNS ,RMER1I 


sREPORT AN ERROR IF “‘ILR’* IS SET 
FF HEH 000002 001352 BIT *1R- oRMERTI a SET DURING RECALIBRATE?? 


RMER1 1 ‘EXPECTED STATUS 

p? RECEIVED STATUS 
USER'S ERROR CALL 

OR NUMBER IN CALL 

‘MOVE SP TO RETURN FOR ERROR 


sMOVE SP TO USER'S BRANCH 











ase es 
ee 
™~ 
OnnnsS 
ed —_N 
ww 
Ww 
MIMO 
ees 
ahabes 
Pe 
Noo 
@o 
sense 


14$: 
:REPORT AN ERROR IF RMR’ IS SET 
BIT I 








2737 000004 001352 ; WAS RAR SET?? 
13737 001352 001140 RMER11,$GDDAT EXPECTED STATUS 
7 000004 001140  #FOAR, SGDDAT 
2646 13737 001352 001142 RMERII,SBDDAT ;RECEIVED STATUS 
716 000004 8 5 ‘MOVE SP TO USER'S ERROR CALL 
5660 112776 000106 000000 #106,a(SP) :WRITE ERROR NUMBER IN USER'S CALL 
162716 000002 ‘ “MOVE SP TO RETURN EOR ERROR 
736 PC a(SP)+ ‘REPORT ERROR V 
7 162716 000010 #16, (SP) ‘MOVE SP TO USER’ s BRANCH 
2 2 ” 15$ 







sREPORT AN ERROR IF *UNS’’ IS SET AND ‘DVC"* IS :. 
BIT RMER11 UNSAFE ON 








05570 32737 040000 001352 " zWAS 
571 $39 000200 001400 ADVC ,RMER21 sWAS THERE A DEVICE CHECK?? 
5 4 :YES = DON’T REPORT UNSAFE 
3. 3 F 7? 001352 oart¢3 RMER11.$GDDAT :EXPECTED STATUS 
70 055 13737 001 1142 RMERII, SBDDAT sRECEIVED STATUS 
71 0557 716 VE SP TO USER'S ERROR CALL 
ks 750 £76 107 000000 i. a(sP) RROR R 
74 0557 736 C,a(sP)¢ “RE SER 
75 0557 162716 000010 Wibn ts *MOVE gp BACK TO A USER'S BRANCH 
u: 5 240 
78 5 16$: 
| 7 sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
; 5772 716 900004 ADD #4, (SP :MOVE SP TO USER'S ERROR CALL 
1 05577 3WAS AN ERROR REPORTED?? 


35 OD OO 09 Oo 
alll 

—— 

NS 


Ww 
oS 


Ne 
cme <a} 
AVAGO 


~ 
~ 


17$: 


sNO!: 
YES - AUGMENT SP RETURN 
—:#4,(°SP) ;NO ERROR - RETURN SP TO BRANCH 
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18$: NOP 
RTS PC 


2 


sSTATUS CECK IS COMPLETE 


SEQ 0223 
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LEAR STATUS 


013737 
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001142 


001142 
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- SBTTL 


DRVSTS: 





DRIVE CLEAR STATUS CHECK SUBROUTINE 








BR 2??? RETURN HERE IF NO ERROR 

NOP RETURN HERE TO REPORT AN ERROR 

ERROR ERROR NUMBER DEFINED BY SUB 

JSR PC ,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
27? RETURN HERE IF NO MORE ERRORS 


CLEAR USER'S ERROR CALL | 


iss 


- 


sREPORT 
6$: 


*REPORT 
8S: 






Sgngacegezase 









#4, (SP) :MOVE SP TO ERROR CALL 

CLRB = a( SP) CLEAR ERROR CALL 

SUB #4, (SP) “MOVE SP TO USER'S BRANCH 

ERROR IF RMCS1 NOT INITIALIZED 

MOV CS11,$BDDAT | ;CHECK RMCS1 

BIC “C<DVA!FNCMSK>,$BDDAT ;CLEAR DONT CARES 
ADVA!DRVCLR,$GDDAT “EXPECT DVA 

CMP DAT,SBDDAT  ;COMPARE EXPECTED & RECEIVED 

BEQ ‘BRANCH IF 


ADD #4, (SP) :MOVE SP TO ERROR CALL 
#14 R 


1,a(SP) “WRIT OF ERROR IN CALL 
SUB , (SP) M0 TO RETURN FOR E 
JSR PC .a(SP)+ ‘REPORT THE ERROR VIA USER 
SUB #16, (SP) “MOVE SP TO NO ERROR RETURN 


ERROR IF RMDS NOT INITIALIZED 
RMDSI AT —_—ssCHECK RMDS 
BIC SPGM'OM'VV!PIP,SBDDAT :CLEAR DONT CARES 
SGDDAT "EXPE 




























#MOL ' DPR! DRY SEXPECT DRY & DPR 
DAT,SBDDAT ;COMPARE EXPECTED © RECEIVED 
; F EQUAL 
#6 sp) ; ERROR CALL 
#142, a(SP) : R OF ERROR IN CALL 
#2,(SP) sMOVE SP TO RETURN FOR E 
PC.a(SP)+ :REPORT THE ERROR VIA USER 
#10, (SP) ‘MOVE SP TO NO ERROR RETURN 
ERROR IF RR! NOT INITIALIZED 
nov RMER11 ,$8DDAT 
ADD yA (sp) 
MOVB #143. a(SP) OF ERROR IN CALL 
SUB 2,( M0 O RETURN FOR ERROR 
JSR PC-a(SP)+ :REPORT THE ERROR VIA USER 
SUB #16, (SP) *MOVE SP TO NO ERROR RETURN 
ERROR IF ATA NOT INITIALIZED 
MOV RMASI,SBDDAT ;:CHECK ATTENTION BIT 
MOV R1,-(SP) 33 R1 ON STACK 
MOV R2,-(SP) * PUSH R2 ON STACK 
MOV Que R1 
mMOVB =: 1(R1),R2 
BIC #*CATNMSK,R2 
BIC R2,$BDDAT 


3 
— 
rm 
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me ee mee ed mead mee eh ed ed eed ed ed ed ed 
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MOV (SP) +R ssPOP STACK INTO R2 






MOV (SP) + “POP STACK INTO R1 

TST <}$ ATTENTION CLEARED? 

BEQ sBRANCH IF A ATTENTION CLEARED 
ake SSP) R OF ERROR IN CALL 
#2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ sREPORT THE ERROR VIA USER 
#10, (SP) ‘MOVE SP TO NO ERROR RETURN 





NOP 
sREPORT oe IF RMAR1 NOT late 4 






























9s: 11 $BDDAT  <C 
BIC #WC'LSILST,SBDDA aT > CLEAR DONT CARES 
MOV A MPECT WRITE DATA 
cP ie SBDDAT :COWPARE EXPECTED AND RECEIVED 
ADD (SP) MOVE SP TO ERROR CALL 
MOVB ais a(SP) sWRITE NUMBER OF ERROR IN CALL 
SUB “MOVE SP TO RETURN FOR ERROR 
JSR a ats) sREPORT THE ERROR VIA USER 
sue #16 ‘MOVE SP TO NO ERROR RETURN 
“REPORT ERROR IF anv NOT INITIALIZED 
11$: MOV 
BIC Aman RGB, SBDDAT “CLEAR REQA 
#TST!1 SEMPECT 7 TEST BIT ON 
CMP SEDDAT. I7if SeDDA r COMPARE’ EXPECTED & RECEIVED 
Q 15$ “BRANCH IF EQUAL 
SWRITE NUMBER OF ERROR IN CALL 
0 RETURN 
SREPORT THE ERROR VIA USER 
‘MOVE SP TO NO ERROR RETURN 
15$: DA zEXPECT ZEROS 
sREPORT NOT 
MOV C21,$BDDAT  ;CHECK RMEC 
BEQ sBRANCH IF 
ADD #4, (SP) sMOVE SP TO ERROR CALL 
move 4#150.a(sP) ‘WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP “MOVE SP TO RETURN FOR ERROR 
JSR PC-a(SP)+ sREPORT THE ERROR VIA USER 
SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
REPORT ERROR IF RMER2 NOT RESET 
17$: MoV R21.$8DDAT : 
BEQ 
ADD #4 
nove Fk? otSP) 
JSR PC a(SP)+ HE 
SUB #16, (SP) “MOVE SP TO NO ERROR RET 
18$: 
19$: 


SEQ 0225 
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2 


SAUGMENT RETURN ae (SP) ee “ROVE. SP_TD ER TO ERR 


ge ie 


ADD ots (SP) 
BR 

gis: SUB 

3$: NOP 
RTS Pe 


WAS AN ERROR DETECTED? 
mpi! - MOVE SP TO ERROR RETURN 


i (SP) ;MOVE SP BACK TO NO ERROR RETURN 
sRETURN TO USER 


SEQ 0226 
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SEARCH STATUS CHECK SUBROUTI 


-SBTTL SEARCH STATUS CHECK SUBROUTINE 


sTHIS SUBROUTINE VERIFIES THE RESULTS OF SEARCH OPERATIONS USING 
STATUS. STORED IN THE GET BUFFER AND TEST CONDITIONS STORED IN THE 





THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN E IS 
DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN 
:THE USER'S ERROR" TRAP. 


ie FOLLOWING CONDITIONS ARE CHECKED: 


Y ERROR WHICH OCCURRED WHILE 1"Gar eae OR eres REMOTE 
REGISTERS. IS REPORTED, I1.E., “MCPE"’ = 


.*‘TAE** STATUS IS CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED 
BY THE PROGRAM, WHICH IS BASED ON FORMAT AND ADDRESS. 


."OPI'’, IF SET, IS REPORTED AS 1) “‘OPI"’ DUE TO MOL = 0, OR 2) 
Sanat DUE TO ON CYLINDER LATCH. 


-"“IVC'', IF SET, IS REPORTED AS 1) “‘IVC’’ ERROR WITH VOLUME 
VALID ZERO, OR 2) ERRONEOUS "‘IVC™ ERROR WITH VOLUME VALID SET. 
























; ."SKI'' IS REPORTED IF SET 
; ."DVC'’ IS REPORTED IF SET | 
Sop sayy AN ERROR IS REPORTED IF “MOL" = 0, OR “PIP = 1, OR “ATA = 0, 
ts 
7(1)—s JSR PC, SCHSTS 
:(@) BR 2? RETURN HERE IF NO ERROR 
:(3) RETURN HERE 
7(4) ‘ERROR 
7(5) JSR PC,a(SP)+ G0 BACK FOR MORE CHECKS 
436)? RETURN AFTER ALL ERRORS REPORTED 
056624 SCHSTS: 
CLEAR USER’S ERROR CALL | 
4 716 000004 ADD #4, (SP) TO USER'S ERROR CALL 
105076 ss CLRB sa SP) R 
16271 . SUB #4. (SP) BACK TO NO ERROR BR 
00503 CLR 206$ TATUS FLAGS 
:TEST FOR MASSBUS CONTROL ARITY ERROR WHEN WRITING REMOTE 
“REGISTERS i AT PE = 
o7 7 000010 001352 “ait * hpah. ne A gt oath ERROR DETECTED?? 
7 000010 001400 BIT 108 ncaot “WAS IT CONTROL BUS ERROR?? 
025 BNE 10$ ‘PROBABLY NOT! 


sREPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL 


fore ime Hee FST Sg MOY -RMERTL SGDDAT EXPECTED STATUS 


QRALUNASSSLSE GEG LSSBIEARUNASVRVEARANVSSarenrnw-Sowvoununy— 
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Seesees 


0570 
037080 
He 
fh 
057054 
037062 
5 
7a 
1 57074 
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1 7112 
1s Seri 
1 3F 4 
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CZRNDAO 
SEARCH STATUS CHECK SUBROUT 


1336 


2 


000010 


001140 


175779 


001140 


















J2 





001142 RMER11,$BDDAT  ;RECEIVED STATUS 
#4, (SPS :MOVE SP TO USER'S ERROR CALL 
000000 #30 ,9( a(SP) [WRITE ERROR R IN 
‘MOVE SP TO RETURN IF ERROR 
PC ash : RROR 
#10,(S :RESTORE SP TO NO ERROR 
wn 15$ sSKIP FURTHER ERROR CHECKS 
:TEST FOR MASSBUS FONTROL BUS PARITY ERROR WHEN READING REMOTE 
“REGISTERS, 1.€., ‘MCPE’ = 1. 
001336 BIT WMCPE RMCS1I zMAS PARITY ERROR DETECTED?? 
:REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL. 
001140 MOV RMCS11,$GDDAT ;EXPECTED STATUS 
001142 sRECEIVED STATUS 
‘MOVE SP TO USER'S ERROR CALL 
000000 “WRITE ERROR NUMBER 
‘ ‘MOVE SP TO RETURN IF ERROR 
‘REPORT ERROR AND RETURN 
#10, (SP) ‘RESTORE SP TO NO ERROR 
158: 150$ :OMIT STATUS CHECKING 
DETERMINE THE VALUE OF ‘‘IAE'* STATUS BASED ON TRACK, SECTOR, CYLINDER 
:AND THE STATUS OF eel” DURING A SEARCH. ALSO SET ‘‘SkI’’ FLAG IF 
*CYLINDER ADDRESS IS TOO LARGE. 
001140 MOV z sSETUP FOR IAE = 1 
206 SETUP FOR Aakl = =1 
001060 RMDCO,4 TER THAN LAST CYLINDER ? 
SES = CYLINDER IS INVALID 
060206 #SK1,200$ :""SkI'* SHOULD BE ZERO 
001335 RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ? 
30$ sYES = TRACK IS INVALID 
000035 A0, #29. 3SECTOR > 29. 2 
001444 SFMT16,RMOFO 21 ‘BIT FORMAT ? 
“YES = SECT is INVALID FOR 18 BIT MODE 
000036 ‘RMDAO,#30. : SECTOR > ’ 
001444 #SSEI .RMOFO 31S SSEI_CLEAR 
“YES = SECTOR 1s INVALID FOR 16 BIT MODE 
000037 “SECT 


25$: 


a1 143 $0: 
114 
114 


CLR 
QMPARE EXPECTED AND RECIVED ‘‘IAE’’ STATUS 


RMERTI, ‘$BDbat 
SGDDAT, 


BIC 


CMP 











SGDDAT 


#*CIAE 





RMDAO , #31. 
30$ 


> 
:YES = SECTOR IS INVALID 
;"‘IAE*’ SHOULD = 0 


at sGET RECEIVED IAE 


DAT ;IS IAE CORRECT?? 


SEQ 0228 
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sSEE IF *’SKI'* OR ‘DVC** OR ““IVC*' IS SET 
BIT ee, * sARE ANY BITS SET?? 


SEARCH STATUS CHECK SUBROUTINE 
115 0571 BNE 40$ :NO!! 
116 sriea 023737 040000 060206 BIC #5k1..2008 ‘SKI SHOULD BE ZERO 
117 057172 BR 50$ 
118 57174 40S: 
1 REPORT INCORRECT IAE STATUS VIA USER'S ERROR CALL | 
1 0571 74 716 ADD B {SP :MOVE SP TO USER'S ERROR CALL | 
122 05 112776 7 000000 MOVE 4257 8 a(SP) ‘WRITE ERROR NUMBER IN CALL 
1 05 16271 2 SUB sMOVE SP TO RETURN IF ERROR 
124 057212 004 JSR PC stare ‘REPORT ERROR AND RETURN 
125 057214 162716 000010 SUB #10,(S “RETURN SP TO NO ERROR 
126 0 20 240 NOP 
0 50$: 
1 
1 
1 
1 
1 
1 
1 











GRRE EVENSOPONSS 
Ss 
Niet 
BS 
Se 
ay 
3 
S 
e 
J 















:REPORT ERROR IF wets. SET AND ‘'SKI'' FLAG IS NOT SET 
057232 013737 001400 001142 sRECEIVED "'SKI’* STATUS 
057240 042737 137 00114 BIC # a CSk1 SB Person 
136 057246 013737 001140 MOY sEXPECTED ‘'SKI’* STATUS 
137 057254 042737 001140 BIC 2008 $600 SEDDAT 
138 05 02 7? 001140 001142 CMP DAT,SBDDAT ;:1S ‘’SKI'’ 0K2? 
139 057270 001422 BEQ SYES=CHANGE ERROR NUMBER 
140 05 72 716 000004 ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 
141 76 112776 263 000000 MOVB #263,a(SP) ‘WRITE ERROR NUMBER 
16e 057304 05 2737 040000 001140 BIT #SK1,$GDDAT : SHOULD D "SKI'’ BE SET?? 
144 oarate 112776 000267 000000 MOVB 4267 a(SP) 7 YES=CHANGE ERROR NUMBER 
145 057322 162716 2 55$: SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
146 be 004736 JSR PC a(SP)+ *REPORT ERROR AND RETURN 
147 05 162716 000010 #10, (SP) sRESTORE SP TO NO ERROR 
148 057334 000240 NOP 
149 057336 60$ 
151 :REPORT “‘IVC'’ ERROR AS 
136 3 Ae 
154 057336 032737 010000 001400 ; 
122 Oatare B08s3> 901400 001140 RMER2I.SGDDAT EXPECTED STATUS 
139 g2 54 7 10000 001140 BIC #IVC AT 
138 5 737 (0014 1142 RMER2T , SBDDAT D STATUS 
159 05 16 ADD #4, ( SP 13 Miste’s ERROR CALL 
160 4 11277 64 900000 nove #264,a(SP) ERROR NUMBER IN CALL 
161 740 03 2730 1 1350 git | /RMDSI WAS VOLUME VALID?? 
188 57412 112776 5 000000 movet 4#265.a(SP) “YES = CHANGE ERROR NUMBE 
164 057420 162716 2 70$: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
165 057424 JSR pC a(SP)+ : AND 
166 574 16271 000010 SUB #16, (SP) “RESTORE SP TO NO ERROR 
167 0574 24 NOP 
169 574 80$: 
1 :REPORT ANY DEVICE FAULT, 1.€., 'DVC'’ = 1 
171 057434 032737 000200 001400 BIT ADVC .RMERZ1 :WAS THERE A DEVICE FAULT?? 








L 2 
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172 05744 426 BEQ 90$ :NO!! 
158 oe vies ti 7? 0014 1140 MOV RMER2 SGDDAT [EXPECTED STATUS 
194 745 7 1140 BIC 
175 057 13737 001 114 MOV RRR SBDDAT  ;RECEIVED STATUS 
176 574 ri ADD SPs ‘MOVE SP TO USER'S ERROR CALL 
177 0574 77 000000 MOVB SWRITE ERROR NUMBER IN CALL 
178 057 162716 SUB ‘MOVE SP TO RETURN IF ERROR 
179 05 736 JSR c.a(sP}+ ‘REPORT ERROR AND RETURN 
180 057 168716 000010 SUB *RESTORE SP TO NO ERROR 
181 05751 24 NOP 
18 057514 90$ 
1 REPORT ANY "‘OPI‘' ERROR AS 
185 ; ."OPI'' BECAUSE MEDIUM IS NOT ONLINE 
1 : 3 oP! BECAUSE ‘‘ON CYLINDER’ DIDN'T DROP 
1 057514 032737 020000 001352 #OPI ,RMER11 :WAS OPI SET?? 
188 057522 001435 :NO!! 
189 057524 013 001352 001140 RMER1 I SGDDAT sEXPECTED STATUS 
190 9575 042737 20000 001140 1,3GDDA 
191 057540 013737 001352 001142 RMERII SBDDAT :RECEIVED STATUS 
198 57546 062716 000004 “MOVE SP TO USER'S ERROR CALL 
19 057592 11 276 000270 #270,a(SP) :SETUP ERROR FOR MOL = 0 
194 057 032737 01 001350 RMDSI :WAS MOL 02? 
195 057566 001403 1 YES! ! 
196 0575 112776 000271 000000 #271,a(SP) ‘MOL WAS 1 = CHANGE ERROR 
197 057576 162716 $0000 105$: #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
198 057602 004736 PC a(SP)+ *REPORT ERROR AND RETURN 
199 057604 162716 000010 #10, (SP) *RESTORE SP TO NO ERROR 
057610 000240 
057612 110S: 
:SEE IF “ATA = "MOL" = "VV" = 1 AND ‘PIP’ = 0 
057612 013746 001350 MOV RMDSI,=-(SP) >GET DRIVE STATUS 
37616 042716 047677 BIC #°C<ATA!PIP!MOL! VV>, (SP) 
57622 022726 110100 CMP BATA! MOL! VV, (SP)+ :1S DRIVE STATUS CORRECT?? 
07 57626 001554 BEQ 150$ sYES!! 
SREPORT AN ERROR IF MOL = 0 AND OP OPI ERROR WAS NOT REPORTED, I.E.. OPI = 0 
10 57630 032737 010000 001350 BIT »RMDSI zMAS MEDIUM OFF LINE?? 
12 7678 eats 001350 001140 MOV sEXPECTED STATUS 
1 646 32 7 01 001140 BIS 
14 057654 013737 001 1142 MOV RECEIVED STATUS 
15 37662 32737 0 00135 BIT WAS OPI 1 REPORTED BEF ORE?? 
16 76 1013 BNE YES = T RE = 0 
17 057672 16 ADD CMOVE SP a USER’S ERROR CALL 
18 057676 112776 2 000000 MOVB “WRITE ERROR NUMBER IN CALL 
19 162716 2 S ;MOVE SP TO RETURN IF ERROR 
7710 0047 JSR PC 58(SP)+ -REPORT ERROR AND RETURN 
1 057712 162716 000010 — $UB #16, ( ;RESTORE SP TO NO ERROR 
: 37716 000240 
3 0577 120$: 
5 :REPORT AN ERROR IF PIP IS STIL SET AND SKI IS RESET 
o37f8e 261030 020000 001350 BIT #PIP,RMDS! :18 POSITIONING IN PROGRESS?? 
8 05 3 040000 001400 BIT #SK1.RMER21 “WAS ''SKI'’ DETECTED?? 
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:YES-DONT REPORT PIP 
sEXPECTED STATUS 


sRECEIVED STATUS 
;MOVE SP TO USER'S ERROR CALL 
ERROR R_IN L 




















“WRIT CAL 
‘MOVE SP TO RETURN IF ERROR 
‘REPORT ERROR AND RETURN 
SRESTORE SP TO NO ERROR 
130$: 
sREPORT AN ERROR IF VOLUME IS NOT VALID AND IVC = 0 
BIT vy RMDSI 31S VOLUME VALID?? 
#IVC .RMER2! Mas. ive DETECTED? 
‘YES = DON’T REPORT vv = 0 
RMDSI.SGDDAT § : EXPECTED STATUS 
#VV,SGDDAT 
RDS I z$BDDAT sRECEIVED STATUS 
(SB) “MOVE SP TO USERS ERROR CALL 
#35048 (SP) ‘WRITE ERROR NUMBER IN CALL 
‘MOVE SP TO RETURN IF ERROR 
PC stehe *REPORT AND RETURN 
6, (SP *RESTORE SP TO NO ERROR 
140$: 
sREPORT AN ERROR IF ATTENTION IS NOT SET 
SIT #ATA,RMDSI 31$ ATA ON?? 
MOV RMDS1.S$GDDAT ‘EXPECTED STATUS 
BIS HATA, SGDDAT 
MOV 1, $8DD :RECEIVED STATUS 
ADD # 1 ‘MOVE SP TO USER'S ERROR CALL 
move sof §} a(sP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ SREPORT E AND RETURN 
| Sug #106, (SP) SRESTORE SP TO NO ERROR 
150$: 
:ARGUMENT THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
Ise a(SP) ;WAS RROR FOUND?? 
ADD #4 (SP) SYES = CHANGE RETURN 
1608: SUB #4, (SP) :NO ERROR FOUND 
170$: RTS PC sRETURN TO USER 
200$:  .WORD sSTORAGE FOR FLAGS 


——— 


SEG 0251 


CZRNDAO RMBO FC 
STATIC DRIVE S 


060210 


060210 
060274 
20 


Shit: 
NAL 
ie 
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TATUS CHECK SUBROUTINE 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 


THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
:STATUS, SUCH AS THE DRIVE LOSING V VALID. THE S$ 


: CAN BE USED BY HOUSEKEEPING 





UBROUT INE 
OT COMMANDS ING WHICH THERE 


HOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 
4s eas CONDITIONS ARE TESTED AND REPORTED AS ERRORS 





CATES DRIVE WENT OFFLINE, NOTE 
O HAVE BEEN 

ATES THE DRIVE LOST VOLUME VALID 
CATES THAT THE DRIVE IS OFF CYLINDER 
CATES THE DRIVE HAS AN UNE 
ICATES AN UNEXPECTED DEVICE FAULT 


XPECTED SKI ERROR 


sTHE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 








: BR 
: NOP 
; ERROR 
3 JSR PC,a(SP)+ 
; 22? 
STCDRVSTS: 
CLEAR USER'S ERROR CALL 
062716 ADD #4 (SP) 
i 3076 CLRB agp) 
162716 SUB #4, (SP) 
:SEE IF = ‘yy = 1 
013746 00135 RMDS1,-($P 
14767 ip! 
o786 010100 #MOL! VV, 





REPORT AN ERROR 
32737 010000 001350 BIT 
020000 001352 ~ BIT 


sy 
yey 
con ood ocd 
weed eB cad 
rs 
NCO 

aor 

eq 

“ 


#10, (SP) 


- Bengaee 


001350 


(1) «JSR PC,STCDRVSTS 
22? 


sMOVE SP a eg ERROR CALL 


AND ‘PIP 
} 








ners HERE IF NO ERROR 








RETURN HERE IF NO MORE ERRORS 


R 
Ec BACK TO NO ERROR RETURN 
gPUT DRIVE STATUS ON STACK 


{VV>, (SP) 
SP)+  ;ARE MOL.VV AND PIP 0.K.?? 


sYES!! 


PORT 
EXPECTED STATUS 


RECEIVED STATUS 

SP_ TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR RETURN 









NOW, ZERO AND “‘IVC"* = 0 


a 


SEQ 0232 


2 | 


a 
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STATIC DRIVE STATUS CHECK SUBROUTINE | 
7 010000 001400 BIT  #IVC,RMER2ZI ;WAS “IVC SET22. | 
4 BNE ;YES=DONT REPORT ‘‘vv" = 0 : 
7 001350 001140 MOV § RMDSI,SGDDAT EXPECTED STATUS | 
52737 0001 1350 BIS 
13737 001 114 MOV RECEIVED STATUS 
716 ADD SP’TO USER'S ERROR CALL 
112776 19 000000 MOVB ; 
16271 SUB ; 
JSR PC 50(SP)+ EPOR 
162716 000010 SUB #16, ¢ MOVE SP BACK TO NO ERROR 





20S: 


sREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ‘’SKI'* = 0 
BIT #PIP,RMDSI :IS DRIVE OFF CYLINDER?? 







































60 0 
64 
+? 
eS 
68 
36 
i 
74 O3e 040000 001400 BIT #SKI,RMER2ZI ts WAS SKI" SET?? 
75 1024 BNE 0$ ‘VES-DONT REPORT ‘PIP’ = 1 
ud: 13737 001350 001140 MOV RMDSI,$GDDAT § :EXPECTED STATUS 
5 7 920000 001140 BIC DAT 
28 56 013737 001 001142 MOV RDS DAT  ;RECEIVED STATUS 
716 ADD ) “MOVE SP TO USER'S ERROR CALL 
060470 112776 000211 000000 MOVB 1.a(SP) . RROR NUMBER IN USER'S CALL 
1 26 162716 2 SUB ; OR ERROR 
302 736 JSR Pe step) ¢ =R U 
162716 000010 SUB #16, (SP) :MOVE SP TO NO ERROR RETURN 
310 000240 
85 51 30$: 
e? :SEE IF pyc. = 
060512 013746 0014 MOV RMER2 -PUT ERROR REG 2 ON STACK 
89 16 062726 1375 FarcSt ipve>, (Sp5+ 
90 322 001460 60$ sBRANCH IF NO ERROR 
a 524 40$: 
38 :REPORT AN ERROR IF THERE IS A DEVICE FAULT 
3 oeb3es 032737 000200 001400 - BIT #DVC .RMER2I zANY, DEVICE FAULT?? 
2% 06 13737 001400 001140 RMER2I1,$GDDAT EXPECTED STATUS 
97 066 7 200 001140 #DVC AT 
98 066 1 1400 001142 RMERCI SBDDAT  :RECEIVED STATUS 
99 060! 716 #4, (SP ‘MOVE SP TO USER'S CALL 
100 06 112776 12 000000 #212,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
101 0¢ 16271 2 zMOVE SP TO RETURN FOR ERROR . 
1 £.a(SP)+ REPORT ERROR VIA USER 
1 216 000010 WiOn Ce “MOVE SP BACK YO NO ERROR 
: 5 50S: | 
1 REPORT AN ERROR IF “‘SKI‘’ = 1 
32737 040000 001400 BIT #SKI,RMER2I 18 THERE A SEEK INCOMPLETE ERROR 
1" 1 ; 1400 $0149 RAERZ , SGDDAT EXPECTED STATUS 
ig 13737 0014 114 macs] x SBDDAT :RECEIVED STATUS 
11 716 {sP5 “MOVE SP TO USER'S ERROR CALL 
114 77 13 000000 a /a(SP) “WRITE ERROR NUMBER IN USER'S ERROR CALL 





c 2 
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TATUS CHECK SUBROUTINE 
162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC-a(SP)+ *REPORT ERROR VIA USER 
162716 000010 SUB #10, (SP) :MOVE SP BACK 10 NO ERROR 
24 NCP 
60S: 
;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
716 900004 ADD #4, (SP) :MOVE a TO USER'S ERROR CALL 
20 1 377 IsTB SP) ;WAS AN ERROR DETECTED?? 
716 000004 ADD #4, (SP) VES: - MOVE SP TO USER'S ERROR RETURN 
1 zt 000004 708: SUB #4, (SP) :NO = MOVE SP TO NO ERROR RETURN 
$5 ' “<i PC sRETURN TO USER 








‘aes a nnn nn nn nn ere eee —— 











D $ 
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SAVE AND RESTORE RO-R5 ROUTINES 
1 ~SBTTL SAVE AND RESTOXE RO-RS ROUTINES 
$3 *RAEAAAAAAAAAAEAAEEAAARAAAAAAAEKRAERAAKAARAKARKRAAREKRARAAREKRARREREREREE 
> *SAVE 
SAVREG 
: UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
j*TOP——~(+169 
3% +2---(+18) 
3% +4---R5 
3% + 4 
3% ee 
3 %41 2 
3%+12---R1 
3%4+14---R0 
060714 SSAVREG: 
060714 010046 MOV RO,-(SP) 
060716 010146 MOV R1,~(SP) 
010266 MOV Re-~ (SP) 
B10 6 MOV 27 (SP) 
724 010446 2 ab 
ben 010546 -(SP) CK 
016646 00002 MOV (SP) ,=(SP) FLOW 
060 016646 00002 MOV (SP) ,-(SP) ee PC OF MAIN FLOW 
060740 ree 000022 MOV (SP) ,-(SP) OF 
060744 016646 000022 MOV (SP) ,-(SP) 
060750 000002 RTI 
s*RESTORE RO-RS 
. :*CALL: 
ot RESREG 
752 SRESREG: 
752 «(O01 000022 MOV (SP)+,22(SP) 2zRESTORE PC OF CALL 
7 01 et MOV (SP)+,22(SP) > sRESTORE PS OF CALL 
7 1 MOV (SP)+,22(SP) ss PC 
7 1 00002 MOV (SP)+,22(SP) sZRESTORE PS OF MAIN FLOW 
1 | MOV (SP)+,R ::POP STACK INTO R 
774 «OO MOV (SP)+,R4 33 
776 «(01 MOV (SP)+,R :3 TACK 
1 1 MOV (SP)+,R os 
1 01 MOV (SP)+,R 
1 MOV (SP) +, ::POP STACK INTO RO 


oO 
ad od Dd 


ed ed eed ceed eed eed eed eed eed ed eed eed edd eed med 
i] 


PERRERETRRRRTRS 
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TYPE. ROUT INE 


-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


FF AAAAAAAAAAEEAEEAEAEEEEEEEAERAEREEEARAEEEEREEREREREREREREREREREKE 
:*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 16-817 
: SBINARY Y-ASCI1 NUMBER AND TYPE IT. 

: , NUMBER, ~ (SP) : ;NUNBER TO BE TYPED 


** 








STYPBN: R1,-(SP) :3SAVE_R1 ON THE STACK 
000006 6(SP) ,R1 Z:GET THE R 
s:SET ' AN KEEP TRACK OF THE NUMBER OF BITS 
000060 061062 1$: #°0,$BIN tISET CHARACTER TO AN ASCII 
R1 + GET THIS BIT 
BEQ 2$ 33 tah 
06106 ADCB $B8IN i 2NO-=SE T THE CHARACTER EQUAL TO THIS BIT 
061 TYPE »$B8IN 3360 7 TYPE THIS BIT 
CLC 2: CLEAR SO CAN KEEP TRACK OF BITS 
BR 1$ 3:60 DO THE 
2$: MOV (SP)+,R1 ::POP THE STACK INTO R1 
000002 000004 MOV 2(SP) ,4(SP) s:ADJUST THE STACK 
MOV (SP)+, (SP) 
RTI RETURN TO USER 
000 SBIN: .BYTE 0.0 * U STORAGE FOR ASCII CHAR. AND TERMINATOR 


Lr 
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-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


CZRNDAO °480 FCINL PT1 MACRO 
CONVERT —_NARY TO DECIMAL AND TYPE ROUTINE 
:STHIS 
oe 
061 STYPDS: 
1 O1ROre 
1 10146 
1 10246 
1 10346 
107 10546 
107 1 rae 020200 
11 1 000020 
He 
wate 1 000055 00001 
eet 18: 
11 1300 
0611 , 2s: 
0611 061270 
061140 3$: 
pot les 
06114 
0611 
ae . 
a1 1ee 
511 
$11 
i 5$: 
o8 ae eg” 
061 0 $ 
061 
61 
061 000010 
061 1 
61 
061 
061 
pe! 8$: 
061 177777 177776 
061 , 
061 
061 
961 














: ROUTINE IS USED 
s*SIGNED DECIMAL (ASCII) NUMBER AND 
*NUMBER POSITI 


MOV 
TYPDS 





EBehcaraacaResagaase 


za 
“~ 
~=4 


= 
“3 





SaSSCIRAVIRE GUILE aRTE 
<< Ff a “~~ U4 = Ow ad = 





:*REPLACED WITH SPACES. 
> *CALL: 





3:60 TO THE ROUTINE 


NUM ,- (SP) 

RO,-(SP) $3 

R1,-(SP) $3 
oul ) ce 
o= (SP) ee 

R5,~(SP) gs 


Sam 
“4 


hong 



























NDING ON 


iii iii iii iii iri iii ii itiiiiiiiiiiiiiiititiiiy 
TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
TYPE IT. DEPE 
VE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
>*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


WHETHER THE 


:3PUT_THE BINARY NUMBER ON THE STACK 






I 
ALREADY A DIGIT 


IN THE OUTPUT BUFFER 


2 :MAKE 
#°=-,1(SP) 3 2MAKE 
33ZERO ONSTANTS 
K,R3 s:SETUP THE OUTPUT POINTER 
w J (RS)+ ::SET THE FIRST CHARACTER TO A BLANK 
R 3:CLEAR THE BCD NUMBER 
ee 32GET THE CONSTANT 
R1, 33FORM THIS BCD DIGIT 
4$ 2:2BR IF DONE 
sz INCREASE THE BCD DIGIT BY 1 
R1,R5 :;ADD BACK THE CONSTANT 
R 2: CHECK IF BCD DIGIT=0 
5 23FALL THROUGH IF 0 
(SP) :3STILL DOING LEADING 0°S? 
33BR IF YE 
(SP) 3 3ASD? 
, ::BR IF NO 
SP? -1(R3) 32 SET 
#°0, $s THE ASCI 
#° OR 33 IT NOT 
R2,(R3)+ °: HIS 
(RO)+ 33 INC 
#10 a3 THE E INDEX 
33 T XT DIGIT 
rt EXIT 
RS ,R2 $3 HE LSD 
6$ 3260 CHANGE TO ASCII 
(SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 
9$ 3:BR IF NO 
-1(SP),-2(R3) 3 ::YES--SET THE SIGN FOR TYPING 
(R3) ::SET THE TERMINAT 
(SP)+,R ::POP STACK INTO R 
(SP)+,R ::POP STACK INTO R 
(SP)+,R ::POP STACK INTO R 
(SP)+,R ::POP STACK INTO R 


ee 


SEQ 0237 | 


“IN 


v04.00 28- 
TYPE ROUT 


JAN~82 16:24:51 PAGE 36-1 
INE 


MOV ( 2° fe 
BF BFK csp) 
MOV SP)+, (SP) 





3 





3sPOP STACK_INTO a0 
33 YPE THE 
2sADJUST THE STACK 
;3RETURN TO USER 





a 


SEQ 0238 


' 
; 


eek 
— 
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BINARY TO OCTAL (ASCII) AND TYPE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


III iii iii iii iii iiiiiiiiiiiiiiiiiiiiiiiiitiy 
3*THIS wi that IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL ( NUMBER AND TYPE IT. 

:aSTYPOS---ENTER HERE HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

































eC 
3% MOV NUM ,- (SP) ; ;NUMBER TO BE rvere 
3* TYPOS 336 L FOR TYPE 
3* BYTE N :N=1 TO 8 FOR NUMBER OF DIGITS TO TYPE 
;* BYTE &-& some OR 
3* 31=TYPE LEADING ZEROS 
:* : SOSSUPPRESS LEADING ZEROS 
: *STYPON-=—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
bo ipa OR STYPOC 
3* MOV NUM, - (SP) 3s NUMBER TO BE TYPED 
‘* TYPON s:CALL FOR TYPEOUT 
mr HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3* 3 NUMBER TO BE TYPED 
3* ::CALL FOR TYPEOUT 
061310 017646 000000 STYPOS: MOV (SP) ,~(SP) sPICKUP THE MODE 
061314 119637 ooeese 061533 MOVB (SP) ,SOFILL >sLOAD ZERO FILL SWITCH 
061322 112637 061535 MOVB d+ +1 NUMBER OF DIGITS TO TYPE 
+d Ceara 000002 = sADJUST RETURN ADDRESS 
061 11 339 sis 061533 STYPOC: MOVB :3SET THE ne FILL SWITCH 
061 3 11 ele 061535 MOVB :zSET FOR SIX(6) DIGITS 
061 112737 000005 0615 STYPON: MOVB 32SET ye ITERATION COUNT 
061 010346 MOY 73SAVE 
1 010446 MOV 3 ZSAVE 
1 01 MOV 23 SAVE 
od 11 4 061535 i s3GET OF DIGITS TO TYPE 
red goo0ee ADD 2: SUBTRACT IT FOR MAX. ALLOWED 
1 1 MOVB 33 
1 TERE MOVB 33GE 
1 oye 12 MOY 3ePI 
141 CLR S32 
1414 1$: ROL $é 
141 BR 38 
14 2$: ROL 38 
14 ROL 
1424 ROL 
14 MOV 
14 3$: ROL 3:GET LSB OF THIS DIGIT 
14 061534 DECB s:TYPE THIS DIGIT? 
14 BPL ::BR IF NO 
1 177770 BIC #177770,R3 ::GET RID OF JUNK 
1444 BNE 4$ ::TEST FOR 0 
1 TST R4 : s SUPPRESS THIS 0? 
14 BEQ 5$ > BR IF YES 
14 4$: INC R4 : DON T SUPPRESS ANYMORE 0°S 





SEQ 0240 





vvSad. 
Grane 





Ras 

b= me 

eng De ee 
=s8222222°* 





sesusasaseusasesasss 


J 3 
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-SBTTL TYPE ROUTINE 


© S EEAAEAAEAAEAAEAAAAAAAREAAEAEREAARARAAAAAAERAAKRAAEEAEREEEKEEAEAREEE 





*CALL: 
*#1) USING A TRAP INSTRUCTION | 
= TYPE ,MESADR 


ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 






























3*0R 
sf TYPE 
:* MESADR 

061536 105737 001173 STYPE: TSTB $TPFLG s21S THERE A TERMINAL? 
1542 100002 BPL 1$ [:BR IF YE 
1544 900000 HALT S:HALT HERE IF NO TERMINAL 
1 BR 3$ LEAVE 

0615 910046 1$: MOV RO -(SP) *:SAVE RO 

061552 01 $00 000002 MOV (SP) RO [:GET ADDRESS OF ASCIZ STRING 

061556 1 2 31 000001 001242 COP WAPTENV,SENV RUNNING IN APT MODE 

061566 132737 000100 001243 BITB § #APTSPOOL.SENVM :: 

0615 4 001405 BEO 33 
1576 010037 061606 MOV ,61$ 33 

061602 004737 0662 JSR PC. SATY3 3 

461606 61$ WORD 33 

06161 000040 001243 62$: 1T8 #APTCSUP,SENVM :: 

061 2$: MOVB (RO)+,-(SP) 3 ;PUSH CHARACTER TO BE TYPED ONTO STACK 
1622 BNE 4$ 33 T ISN'T THE TERMINATOR 
4 IST (SP)+ 2 3: NATOR POP IT OFF THE STACK 
sos: ADD 3 #2, (3b) 3: 

1 4$: CMPB Os #HT, (SP) 3: 

164 BEQ 

1o88 = oe oe : BRANCH IF NOT <CRLF> 

1839 TST (SP)+ :2:POP <CR><LF> EQUIV 

103) hin 2: TYPE A CR AND LF 

1866 CLRB HARCNT 3 CLEAR CHARACTER COUNT 

1666 5$: JSR PC .STYPEC i: HARACTER 

16 6S: CMPB ILLC.(SP)+ =: OR FILLER CHARS.? 
1676 BNE 3: T CHAR. 

1 MOV L,-(SP) 3: LER CHARS. NEEDED 
1704 7$: DECB —s:«1( SP) 3: ED TO BE TYPED? 
171 BLT 3: POP THE NULL OFF OF STACK 
171 JSR PC, STYPEC i: L 

171 DECB HARCNT 3: AS A COUNT 

1 BR LOOP 


ee . 


117160 
117154 
177600 
000021 


117130 
000002 
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sHORIZONTAL TAB PROCESSOR 


gs: MOVB 

: JSR 
8ITB 
BNE 
TST 
BR 

STYPEC: 
TSTB 
BPL 

V 

101$: 

102$: 

10$: 

1$: 


SCHARCNT : 
STYPEX: RTS 





i AUPE, 


TPS 
sce oteey 


SCHARCNT 

oUF (sp) 
STYPEX 
(PC)+ 

0 

PC 


i ERE ce fie wiTH SPACE 
BRANCH iF NOT AT 
TOP 


3;POP SPACE OFF STACK 
SIGET NEXT CHARACTER 


hae IN KYBD BUFFER? 
+3BR IF NOT 

3GET CHAR 
‘ ESTRIP Ne ja BITS 


:3WAS C 

33;BR IF NOT 

S3WAIT FOR CHAR 

33GET CHAR 

:z:STRIP IT 

s3WAS IT XON? 

33;8R IF NOT 

s3FIX STACK 

:zWAIT UNTIL PRINTER IS READY 


OAD CHAR TO BE TYPED INTO DATA REG. 
S CHARACTER A CARRIAGE RETURN? 


sol 

F | 

BRANCH IF NO 

3 eae CHARACTER COUNT 
I 


S CHARACTER A LINE FEED? 
; BRANCH _IF YES 

COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 


————— 


SEQ 0242 


ee 
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SCOPE HANDLER ROUTINE 


SEQ 0245 


-SBTTL SCOPE HANDLER ROUTINE 


f RAAAAAAERAAAAAAAAAAAEAAAAAEEARERERERAEEERAEERERERERERERERERKREREKE 























;STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
“tAND LOAD THE TEST NUMBER(STSTNM) INTO THE PAreYS 0 REG. (DISPLAY<7:0>) 
[AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLA 
*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AR 
+ eSW14=1 LOOP ON T 
**SW11=1 INHIBIT ITERATIONS 
: #SW09= LOOP ON ERROR 
: #SWOB=1 LOOP ON TEST IN SWR<7:0> 
: SCOPE ::SCOPE=10T 
7 SSCOPE: 
104410 CKSWR :zTEST FOR CHANGE IN SOFT-SWR 
74 004737 062734 JSR PC, STOP 
100 032777 ates 117046 1$: BIT 1T14,aSwR ::LOOP ON PRESENT TEST? 
106 001402 BEQ ::NO IF SW14=0 
110 000137 062540 mote JMP SOVER :: JUMP OVER SCOPE ROUTINE 
-#AAHASTART OF CODE FOR THE XOR TESTERSAAAD 
062114 000416 $XTSTR: BR &$ RUNNING ON THE “‘XOR'’ TESTER CHANGE 
THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
116 013746 000004 MOV MERRVEC ~(SP) SANE THE CONTENTS OF A THE ERROR VECTOR 
148 012737 062142 000004 MOV RRVEC ::SET FOR TIMEOUT 
130 005737 177060 TST ‘TIME OUT ON XOR? 
134 012637 000004 MOV (SP)+,@MERRVEC ::RESTORE THE ERROR VECTOR 
rt 000561 BR 33:60 T NEXT TES 
142 022626 CMP (SP)+, (SP)+ 33 THE STACK AFTER A TIME OUT 
144 012637 000004 MOV (SP) +, a#ERRVEC 33 THE ERROR VECTOR 
150 000521 BR 7$ “LOOP ON THE PRESENT TEST 
15 WHEND OF CODE FOR THE XOR’ TESTERAARAA 
152 032777 000400 116774 BIT 4B1T08,aSuR ::LOOP ON SPEC. TEST? 
160 001421 BEQ 7:8R IF NO 
162 5046 CLR s:CLEAR AT LOCATI 
164 117716 116764 MOVB  a@SWR,(SP) *:PICKUP THE DESIRED TEST NUMBER 
170 001414 BEQ : BRANCH IF 
52172 022716 000067 CMP #67, (SP) =: CHECK THE 
52176 002411 BLT * :BRANCH IF TEST NUMBER IS OUT OF RANGE 
52200 011637 001116 MOV (SP) STSTNM : :UPDATE THE T R 
005316 DEC * :BAC 
16 ASL SCALE THE TEST NUMBER AS AN INDEX 
10 716 062556 ADD peswosTeL (SP) ::FORM THE ADDRESS OF TEST POINTER 
4 001122 MOV a(SP)+,$LPADR 33SET LOOP ADDRESS TO DESIRED TEST 
BR SOVER ::G0 LOOP ON THE TEST 
2 TST (SP) + 33 CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
4 001117 2$ Ise RFLG :3HA AN ERROR OCCURRED? 
177777 063352 CMP el gGPSAVE 33SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
| BEQ KICK AROUND ROUTINE IF SO 
MOV gel + CAVE CONTENTS OF ERROR VECTOR 
64 000004 MOV OS .ERRVEC “SETUP ‘TRAP’ RETURN ADDRESS 
177766 063352 mov 66, CPSAVE *:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
177777 063352 2000$: MOV eb Cpsave ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
062300 MOV #206 $, (SP) **SETUP RETURN ADDRESS 





Se —_ EE 


a 
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SCOPE HANDLER ROUTINE 


















06227 RTI 
estes 979085 000004 2001$: MOV (SP)+,ERRVEC § ;;RESTORE CONTENTS OF ERROR VECTOR 
04 0 27 7? 177777 063352 2002S: cmp #-1, CPSAVE 33 SEE 4 CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
14 032 000001 063352 BIT TOO,CPSAVE :2SEE IF THE POWER MONITOR BIT IS ON 
2 001424 BEQ 7 BRANCH TO CONTINUE ROUTINE IF CLEAR 
4 7 177766 BIC #81T00,177766  ::CLEAR THE BIT FOUND T 
013746 001154 MOV SWR,- (SP) 7:SAVE SWR ADDRESS 
017 : MOV FiP6. Sun =(SP) ::SAVE SWR VALUE 
012 176 001154 MOV “GET SOFTWARE SWR ADDRESS 
5 0116 11 MOV *:GET CURRENT SWR 
54 042777 001 116572 BIC sr T69° SSUR 7:DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
104177 EMT 1 ‘:CALL SPECIAL POWER FAIL BIT ERROR CALL 
012676 MOV (SP)+,a(SP) * RESTORE SWR TO ORIGINAL VALUE 
0 012637 001154 ae MOV (SP)+, SWR s RESTORE SWR ADDRESS 
374 123737 001131 001117 CMPB  S$ERMAX,SERFLG ;::MAX. ERRORS FOR THIS TEST OCCURRED? 
402 101015 3 BHI $ ::BR IF 
062404 052777 001000 116542 BIT WBITO9, aSWR *:LOOP ON ERROR? 
062414 013737 0011246 001122 7$: MOV SLPERR. SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
062424 105037 001117 4$ CLRB $ERFLG zzZERO THE ERROR FLAG 
0624 37 0012 CLR STIMES 33CLEAR THE NUMBER OF ITERATIONS TO MAKE 
434 BR 1$ *ESCAPE TO THE NEXT TEST 
436 777 004000 116510 3$: BIT . #81711 .@SuR S INHIBIT ITERATIONS? 
062444 001011 BNE 1 F 
062446 005737 001230 TST SPASS 
45 0014 BEQ 1$ 
454 005 0011 INC SICNT 
460 023737 001 001120 CMP STIMES ,SICNT 
466 002024 BGE R 
470 012737 900001 001120 1$: MOV #1,$ICNT 
476 013737 4 001 MOV SMXCNT .STIMES 
504 105237 001116 SSVLAD: INCB $TSTNA 
510 11 1116 001226 MOVE  $TSTNM.STESTN 
516 011637 00112 MOV P 
1522 011637 0011 4 MOV 33 ADDRESS 
5 5 1210 CLR 33 ROM ERROR ADDRESS 
5 Ne 7 1 001131 MOVE 33 Y ALLOW ONE(1) ERROR ON NEXT TEST 
540 4 1116 116410 $OVER: MOV TNA. @DISPLAY :: Y TEST NUMBER 
346 13716 00112 HOV 23 RETURN ADDRESS 
554 titi SAXCNT 5. 33 NUMBER OF ITERATIONS 
556 $ TBL: 
? ; .REPT  $TN-1 
5 40 .WORD TST1+ s:STARTING ADDRESS OF TEST 1 
10140 .WORD  TST2+ 33STARTING ADDRESS OF TEST 2 
10534 -WORD TST3+ ‘STARTING ADDRESS OF TEST 3 
11404 .WORD TST4+ STARTING ADDRESS OF TEST 4 
11748 .WORD TST5+ ‘STARTING ADDRESS OF TEST 5 
1215 . WORD IST6¢ ‘STARTING ADDRESS OF TEST : 
3 12464 .WORD  TST7+ 33STARTING ADDRESS OF TEST 
74 01 $44 .WORD TST10+ :STARTING ADDRESS OF TEST 10 
576 013716 .WORD TST11+¢ 3 STARTING ADDRESS OF TEST 11 
14216 .WORD TST12+¢ = STARTING ADDRESS OF TEST 12 
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SCOPE HANDLER ROUTINE 


RRR 
Nf 


RARRAKC 


Cac _ > > > . 
oo abd td awd -_— = 





O15 74g 0140 


012746 000240 


sDROP PRIORITY TO ALLOW CONSOLE 
STOP: 


=ee 
— 
fom 


64$: 


TST13+ 


#PR3,-(SP) 
#64$,-(SP) 










7:STARTING ADDRESS OF TEST 13 
73STARTING ADDRESS OF TEST 14 
23 START we ADDRESS OF TEST 15 
7 START ADDRESS OF TEST 1g 
Z:STARTING ADDRESS OF TEST 
s3STARTING ADDRESS OF 3 
s3STARTING ADDRESS OF TEST 21 
S3STARTING ADDRESS OF TEST 4 
SZ3STARTING ADDRESS OF TEST 
SZSTARTING ADDRESS OF TEST 24 
S3STARTING ADDRESS OF TEST 25 
AL ADDRESS OF TEST § 
ZZSTARTING ADDRESS OF TEST 
SZSTARTING S OF TEST 
:zSTARTING ADDRESS OF TEST 31 
ZZSTARTING ADDRESS OF TEST $ 
S3STARTING ADDRESS OF TEST 
33STARTING ADDRESS OF TEST 
SzSTARTING ADDRESS OF TEST 35 
s3STARTING ADDRESS OF TEST 3 
S3STARTING ADDRESS OF TEST 
s3STARTING ADDRESS OF TEST 40 
s3STARTING ADDRESS OF TEST 41 
32 STARTING SS OF TEST 42 
Z2STARTING ADDRESS OF TEST 43 
SZSTARTING ADDRESS OF TEST 
:ZSTARTING ADDRESS OF TEST 45 
SZSTARTING ADDRESS OF TEST 
::STARTI OF TEST 47 
S3STARTING ADDRESS OF TEST 50 
::STARTING ADDRESS OF TEST 51 
:2STARTING ADDRESS OF TEST 5 
2: STARTING OF TEST 5 
s2STARTING ADDRESS OF TEST 54 
S2STARTING ADDRESS OF TEST 55 
SZSTARTING ADDRESS OF TEST 56 
ssSTARTING ADDRESS OF TEST 57 
SZSTARTING ADDRESS OF TEST 60 
S3STARTING ADDRESS OF TEST 61 
:2STARTING ADDRESS OF TEST 
Z3STARTING ADDRESS OF TEST 
s2STARTING ADDRESS OF TEST 64 
::STARTING ADDRESS OF TEST 65 
+ STARTING ADDRESS OF TEST 6 
SZSTARTING ADDRESS OF TEST 6 





INTERRUPT . 


:sPUT NEW PS ON STACK 


3sPUT NEW PC ON STACK 


:3POP NEW PC AND PS 


sRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 


MOV 


#PRS ,~ (SP) 


:sPUT NEW PS ON STACK 


ee eee 


SEQ 0245 


— 





& 
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oie 062760 MOV #65$,-(SP) 33PUT NEW PC ON STACK 
RTI 33P0P NEW PC AND PS 
10 ; 65$: 


000207 RTS PC RETURN 
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ERROR HANDLER ROUTINE 
1 -S8TTL ERROR HANDLER ROUTINE 


fF EAAARAAAAARAAAAEAAREEEEEAAAEEEAEAREARAAREREAERARERHERERREKEKEERKERE 
SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: SAVE cate ERROR, ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
8 po R SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


















:* Suiza INHIBIT ERROR TYPEOUTS 
‘ oeul0=1 BELL ON ERROR 
:#Su09=1 LOOP ON ERROR 
o 8 ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
062762 105037 063354 SERROR: CLRB _—s«IBSAVE z3CLEAR THE ITEM BYTE SAVE LOCATION 
766 104410 CKSWR ZTEST FOR CHANGE IN SOFT-SUR 
105237 001117 7$: INCB SERFLG <TSET THE ERROR FLAG 
77% 001 5 BEQ ? ::DON'T LET THE FLAG GO TO ZERO 
776 013777 001116 116152 MOV STSTNM. aD1SPLAY [DISPLAY TEST NUMBER AND ERROR FLAG 
032 002000 11614 BIT 1T10.a$ ::BELL ON ERROR? 
12 001402 BEQ =:NO = SKIP 
063014 104401 001212 TYPE ‘RING BELL 
5237 001126 INC SERTTL =: COUNT THE NUMBER OF ERRORS 
0011 3 ( 2 , SERRPC [GET ADDRESS OF ERROR INSTRUCTION 


RRPC,SITEMB ::STRIP AND SAVE THE ERROR ITEM CODE 
T09, aSuR IF 
















BIT 33 LOOP ON ERROR Is Ser 
#177, SITEMB ZISEE IF THIS IS THE POWER FAIL CALL 
0048 , H F IT IS 
OOS. :ISEE if THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
f- CPSAVE 33SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 





E 
# 
1 


Ng by 


C,~(SP) 3 SAVE CONTENTS OF ERROR VECTOR 
eERRVEC $3 SETUP *TRAP* T ADDRESS 
eCPSAVE ;;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
7106 $, (SP) [:SETUP RETURN ADDRESS 


viet aga 
a as 









wt 
aTl 
MOV (SP)+,ERRVEC | ::RESTORE CONTENTS OF ERROR VECTOR 
cw 1 "gee ;3SEE_IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BIT ,CPSAVE ::SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
BEQ : :BRANCH IF OK 
BIC ell 0177766 = 33CLEAR THE BIT FOUND SET 
MOVB HPs IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
MOVB iTEMB *:SET SITEMB TO SPECIAL R FAIL POINTER 
BR 7 :BRANCH OVER IBSAVE CLEARING 
10 105037 063354 10038: CLRB =—«IBSAVE s:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
14 032777 020000 115732 " git $81113,aSuR ::SKIP TYPEOUT IF SET 
20 1004 BNE °:SKIP TYPEOUTS 
4 7 063356 JSR PC, ERRTYP 7:G0 TO USER ERROR ROUTINE 


HANDLER 








D 
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ERROR ROUTINE 
104401 201217 a TYPE  ,SCRLF 
rit 000001 001242 F cnPs apa 
413737 001130 063256 MOVB ITEMB,21$ 
004737 $P8 27 JSR pt Sarte 
21$: BYTE 
“BYTE 
+. 2$ 
063354 : TSTB IBSAVE 
1 BNE 
5 115660 TST asur 
BPL 
HALT 
CKSWR 
BIT #81T09,aSWR 
BEQ 4 
MOV SLPERR, (SP) 
4$: TSI SCAPE 
‘a MOV SESCAPE, (SP) 
: CMP #SENDAD ,a#42 
BNE 6$ 
HAL 
IBSAVE 


D 


4 





IN SOF T=-SWR 
ERROR SWITCH SET? 








TURN FOR LOOPING 
FOR AN ESCAPE ADDRESS 
RETURN ADDRESS FOR ESCAPE 


: 1 AUTO-ACCEPT? 

: BRANCH IF NO 

;sSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
Asi BACK TO CALL ORIGINAL ERROR 


TURN 
sLOCATION TO SAVE CPU ERROR REG CONTENTS 
; LOCATION TO SAVE ITEM BYTE 






SEQ 0248 


Oe eee eww. 2.0 ee, ee _——_—-- 


es 





a 
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ERROR TYPEOUT ROUTINE 


SEQ 0249 


: :*THE ERROR TYPEOQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
4 ; *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 
ce .UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND 
'*PROGRAM COUNTER ARE PRINTED ON THE FIRST LIWE: 
8 :* ERROR 1S ASSEMBLED, FORMATTED AND PRINTED ON 
9 S#0NE OR MORE  SUCC DING LINES; 
10 .PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
i < SAFTER THE ERROR MESSAGE. 
if 104414 ERRTYP: SAVREG 
14 06 052777 020000 115566 BIT #SW13,aSWR s INHIBIT TYPEOUTS?? 
15 140 BEQ 1 “NO! ! 
16 06 000137 064166 JMP 27$ YES! ! 
18 :TYPE UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER, 
19 “PROGRAM COUNTER 
374 104401 001217 i$: TYPE »SCRLF 
1 104401 064202 TYPE ERTYOO :TYPE ‘DRVA"" 
22 063404 013746 001234 MOV $UNIT,-(SP) Bi SUNIT FOR TYPEOUT 
10 104403 TYPOS 7:60 TYPE=-OCTAL ASCII 
le 00 BYTE 5 ‘:TYPE 3 DIGIT(S) 
. 1 000 “BYTE 7 SUPPRESS LEADING ZEROS 
4 :TYPE "DRIVE TYPE’, FOR UNIT UNDER TEST 
5 14 013700 001276 MOV mat :GET RM BASE 
01 26 MOV i, sho [GET DRIVE TYPE REGISTER 
6 HE 067130 063452 Rov ; oR! 
700 000026 : 
1004 :NO !! 
1 104401 064237 2$: TYPE , ae ; 
50 104401 TYPE ; E TYPE 
52 3$: .WORD 0 :DRIVE TYPE MESSAGE IS STORED HERE 
5 :TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 
54 064172 | és: CLR TSTNMB sLOAD TEST NUMBER FOR 
13737 1g 6 064172 MOV STESTN. TSTNMB 
104401 064 7 ERTYO ;TYPE “"TSTA"® 
013746 172 TSTNMB,-(SP) iiine TSTNMB FOR. TYPEQUT 
76 10440 3:60 T VRE--OCTAL ASCII 
o3 YPE 3 DIGIT(S) 
1 = SUPPRESS LEADING ZEROS 
40 005 064174 RRNMB ; RROR R 
41 113737 001130 064174 TEMB,ERRNMS ss; 
4 14 1406 BEQ ; KIP IF-NO ERROR CALLED 
b 316 104401 064217 TYPE ERTYO2 : RRA’ 
44 013746 064174 MOV ERRNMB,-(SP) ERRNMB FOR TYPEOUT 
263526 106405 TYPOS :G0 TYPE=-OCTAL ASCII 
06: BYTE 33 T(S) 
163531 BYTE 7: SUPPRESS LEADING ZEROS 
45 063532 104401 064226 5$: TYPE ,ERTYO3 : 


-SBTTL ERROR TYPEOUT ROUTINE 




























F 4 
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ERROR TYPEOLT ROUTINE 
46 063536 013746 001132 MOV SERRPC,-(SP) : 3 SAVE SERRPC FOR TYPEOUT 
$42 106405 | TYPOS 7:60 TYPE=-OCTAL ASCII | 
BYTE ‘ S:TYPE 6 DIGIT(S) 
- 3545 001 “BYTE 7: TYPE LEADING ZEROS | 
48 ;GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
4 064174 é$: TST RRNMB WAS AN ERROR CALLED? 
50 BNE “BR IF YES 
31 064166 JMP 2 *NO=-EXIT 
38 001 17 7$: TYPE SCRLF :YES-TYPE CRLF 
CLRB  BOTFLG ‘CLEAR BOT FLAG 
55 064 1 CLRB  CHRCNT iC EAR CHARACTER COUNTER 
36 174 MOV ERRNMB RO POINTS TO FIRST OF 
ru 000177 CPB #177,RO ‘CEE If THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
59 9: 064244 MOV #PFECH.RO A ve P POWER FAIL ERROR CALL TABLE TO RO 
61 8$: ASL R :FOUR ENTRIES IN ERROR 
6¢ = : : TABLE 
64 001564 ADD #SERRTB-B. .RO 
65 9$: MOV (RO) ,R1 :R1 POINTS TO ERROR MESSAGE 
re 063630 BEQ 19$ ‘BRANCH IF NO ERROR MESSAGE 
re | “TYPE THE ERROR 
70 0636 02 10$: MoV ZR2=ADDRESS OF MESSAGE STRING 
5 36 505 BEQ ‘BRANCH IF END OF MES 
53636 0102 ? 064 MOV sLOAD ADDRESS OF STRING 
7 176 CLR sCLe T 
205 11$: nove END OF STRING?? 
703 000015 CMPB ; 
BNE : 
064201 CLRB ; 
703 000012 12$: CMPB : 
176 BEQ ; 
2 ; 000011 ue : 
1 13$:  INCB SADJUST CHARACTER COUNT 
7 064201 B1TB 
et 
237 1 14$:  INCB : INCREMENT CHARACTER COUNT 
; : BNE thot 
176 MOV AVE ADDRESS OF SPACE 
100 064201 15$:  CMPB SEND \OF LINE? 





z 
RS 
aoe 
eee 
mn 


Get * ADDRESS OF LAST SPACE 
SBRANCH IF SPACE DETECTED 
TYPE CRLF 

ts ate CHARACTER COUNT 
sSET UP R2 FOR TESTING 


BIKAR 
= oe oe 
tats 

™~ 

FS 

o= 

—y 
~~ 

FFE 

Set 
— “J 
=< 
Bm 





EE ee ee else - = - ——— 


G 4 
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ERROR T TINE 

99 11$ 

1 16$: =(R4) 

101 #-1,BOTFLG 

102? 17$: 

103 18$: ADDRESS GOES 

‘ue STRING TRUNCATED? 

1 ‘ VES-TYPE CRLF 

1 :C BOT FLAG 

1 : CLEAR CHARACTER COUNT 

1 V ; Re FOR TESTING 

110 ‘SETUP 18$ FOR TYPING 

111 VB *RESTORE SPACE 

Ne TSTB sRESTORE R2 

W3 ‘TYPE REST OF STRING 

115 -TYPE ERROR HEADER AND ERROR DATA 

116 000002 19$: | MOV 0),R :R1 POINTS TO ERROR HEADER TABLE 

11 BEQ ‘BRANCH IF NO HEADER 

118 1217 TYPE RLF : (ASSUME NO DATA) 

11 MOV oR :R2 POINTS TO DATA ADDRESS TABLE 

1 6(RO)R :R3 POINTS TO FORMAT TABLE 

121 0641 20S: Ri +,218 :PUT HEADER ADDRESS FOR TYPE 

1 76 BEQ : H IF END OF HEADERS 

Tome 3; (ASSUME END OF DATA) 

125 06€ 199 21S: sHEADER ADDRESS GOES HERE 

1 541 001217 YPE CRLF 

127 06411 R sDATA WITH HEADER?? 

1 5411 BEQ NO! ! 

1 5411 (R2)+,R4 :R4 POINTS TO DATA ADDRESS 

130 06411 MOV (R3)+,R5 :R5 POINTS TO FORMAT 

131 0641 22$: (R5)+ sWHAT KIND OF DATA?? 

1 Beets st 

A Of MOV @(R4)+,-(SP) 

1 541 BR 25$ 

1 54 238: MOV @(R4)+,-(SP) 

138 0641 TYPOC 

1 by] BR 25$ 

140 06414 246$: MOV @(R4)+,-(SP) 

141 0641 TYPBN 

16¢ 541 258: TST R4) sMORE DATA? 

14 541 BEQ Nee: 

144 0641 064234 TYPE RTY04 sYES-TYPE 2 SPACES 

145 0641 BR 2 ZAND_ CONT INUE 

146 541 001217 26$: ‘TYPE RLF :TYPE ONE SLANK LINE 

147 0641 BR *BEFORE NEXT HEADER 

168 541 27$:  RESREG 

13 541 RTS PC 

1 1 TSTNMB: .WORD : 

1 ¢ 158 E : WORD $ R 

1 17 BOT . WORD ; TEXT ADDRESS 

1 BOTFLG: BYTE : 

155 CHRCNT: .BYTE : OUNT 





— == 


5 


SONS ud 


H 
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33 


1 


é 54 ERTY 
% 6 ERTY 
5 yt : 
aeisse oet866 265809 064360 PECH: PFECHT .PFECH2 ,PFECH3 .PFECH4 ;WORDS DEFINING TABLES BELOW 
11 127 ' “Asti? 2POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


2 064 PFECH2: .44,0 
32 168 00000 125 -ASCIZ 2CPUERREG? 


— td od 
m 
? 
~ 
< 





FALLS 
2 
om 
> 4 


~ 
al CPSAVE 0 
000 000 " "BYTE 0,0 


ee ean ee ee ee 
RUN ASSRIES, 


SERS 
23 
e & 


_——ome eomeew - — — —- == 





oe Oe OE ON Saea 2 anaes 


74 
re 76 


114510 


eee ee CF 


I 4 
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-SBTTL TTY INPUT ROUTINE 


SRAERAEAEAAAEAAEEAATEAAAAEEERERARARARAREAAAARAERARAAERARARERAREREE 





0 sNUMBER OF ITEMS IN QUEUE 
8 S TINPUT POINTER 

; OUTPUT POINTER 
1 sz TTY KEYBOARD QUEUE 





PC .STKINT 








STKINT: 








STKCNT 
#STKQSRT ,STKQIN 
PSIKSAU OA TEVE ye C 
#200, ast fRVECe® 





evict THE TTY KEYBOARD INTERRUPT 
FROM THE INPUT BUFFER AND PUTTING 


4 comma. (*C) STKINT IS CALLED AND 
THE *‘CONTROL~C** RESTART ADDRESS (SHUT) 













szPICKUP THE CHARACTER 
:zSTRIP THE J 
2218 IT A RANDOM XON? 
3 BRANCH IF NO 
32CLEAN RANDOM XON OFF STACK 
30$ RTI ‘ : RETURN 
CMP (SP) #3 : T A CONTROL C? 
BNE 1$ ; NO 
_TYPE SCNTLC § CONTROL-C (*C) 
JSR PC STKINT > KE 
TST (SP)+ : 
JMP SHUT § 
1$: CMP ss?) 47 3 G 
BNE ; NO 
CMP a $3 WR SELECTED? 
BEQ 3 SWR CHANGE 
23: are | 
CMP 41 ,.$TKCNT s31S THE QUEUE FULL? 
BNE $ 3: ;BRANCH * 4 
TYPE SBELL s:RING THE TTY BELL 


——— « 


SEQ 0253 


“J 


——— 
FOOLS 


3 


san 


SEPEPERE 


HENS 


EERE 
BSry 


$33 


re ee a 
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$3 57 . Ist (sP)+ 33 CLEAN CHARACTER OFF OF STACK 
7 000023 3$: CMP { ),#23 tis IT A CONTROL-S? 
1021 BNE i 7BRANCH IF 
114370 CLR TKS 7:DISABLE TTY KEYBOARD INTERRUPTS 
TST (SP) + 7: CLEAN CHAR OFF STACK 
114362 31$: STB TKS s:WAIT FOR AC 
1 5 | BPL 1$ :ZLOOP UNTIL ITS THERE 
11 11435 mova asTKe -(SP) 33GET THE CHARACTER 
04 716 177 BIC #°C177, (SP) *: IT 7-B1T ASCII 
vn 000021 CMP (sp) +421 :tIS IT A CONTROL ~0? 
1 000100 114334 mov #100, a$TKS :SREENABLE TTY KEYBOARD INTERRUPTS 


3 32$: INC STKCNT [:COUNT THIS CHARACTER 
14 CMP (SP) #140 [21S IT UPPER CASE? 


000175 CMP (SP) #175 s3IS At, SPECIAL CHAR? 


— 


Oo 
So 

No 
NUN 
a 










7 0 BIC #40, (SP) ss 
11 177516 4$: MOVB  (SP)+,a$TKQIN AND PUT N QUE 
37 064374 INC TK 3 UPDATE THE POINTER 
; 7 064374 064401 cme TKQIN,#STKQEND ; GO OFF THE kno? 
O19737 064400 064374 i MOV TKQSRT,STKQIN :: ser THE POINTER 





s RRRARARARARRERAEREREARERERREREAREREEREEEERROREREEEEREEREEERER ES 
TWARE SWITCH REGISTER CHANGE ROUTINE. 
INE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

i eSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


OPERATING IN TTY INTERRUPT MODE. 
020737 000176 001154 $cKSuR: 6, SWR 



























SOFT“SWR SELECTED 





139 
105 114242 : WAITING? 
100121 : XIT 
117746 114236 -(SP) : 
042716 177600 (SP) : 7=BIT ASCII 
021687 ? ° CONTROL~G? 

1 ; PUT IT IN THE TTY QUEUE 

; EXIT 
§ REAAAEAEAERAAAERAEEAAEREAAEAAAAARARAEREERARERERRERARAREREEAREREE 


: SCONT IS passe TO onic 4 ARE ul en Ab THE TTY INTERRUPT SERVICE 












;SROUTINE OR BEING TYP TYREDS” Wt T i Ten REGISTER BEING SELECTED " 

1 3727 001150 000001 és: Cope 108,41 :2AR RUNNING IN AUTO~MODE? ' 

a726 TST SP)+ SSCL TROL-G OFF STACK 

0644 «JSR STKINT SFL TTY INPUT 

5077 114 CLR 201 TY KEYBOARD INTERRUPTS 
112737 1 001151 MOVE «#1, SINTAG *:SET INTERRUPT MODE INDICATOR 
104401 5612 TYPE »SCNTLG 3sECHO THE CONTROL~G (*6) 
104401 06561 SGTSWR: TY SMSUR “TYPE CURRENT CONTENTS 
015746 176 MOV SWREG, -(SP) 3 SAV ve SWREG FOR TYPEOUT 
10440 TYPOC 7:60 TYPE--OCTAL ASCIICALL DIGITS) 


seeds cee ed a ek et nb Od dt ee ed as ed ed 
SRIRRENRSRERBAS 


= at 
ALO 


3 


—_ 
OS NAAAAQ 


RRRRRARRRRARRRRRRR RRR RR RRR 


MAMA AAA Aaa Ai 


& 
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001003 


o 
pet Spr Be 
SING * 5 
ANONNTD 


os 
po 
REO 


a oe ey 


Se 
No 


065630 





TYPE 
19$: CLR 
CLR 
7$ TSTB 
BPL 
MO 
BIC 
BNE 
ADD 
BNE 
MOV 
8$: JMP 
9$ CMP 
BNE 
TYPE 
20S: ADD 
10$: 
MOV 
11$: 
14$: TYPE 
CMPS 
BNE 
MOV 
15$: RTI 
16$: JSR 
CMP 
BLT 
CMP 
BGT 
BIC 
TST 
BEQ 
ASL 
ASL 
17$: INC 
_ 
18$: TYPE 
-DSABL LSB 





as" 


-(SP) 


a$TKB,-(SP) 
oCIPd, CaP) 
(SP) #3 
SCNTLC 
»SP 
INTAG, #1 
#100, aSTKS 
SHUT 


(SP) ,#25 
SCNTLU 
SP 


#100,a$TKS 
Pp 


CSTYPEC 
(SB) 6d 





(SP) 
aaah 
7 


ss 





77CHAR THERE? 
321F NOT TRY AGAIN 
ssPICK UP 


HAR 
S3MAKE IT 7-BIT ASCII 
31S IT A_CONTROL-C? 
;7BRANCH IF NOT 


7:YES, ECHO CONTROL ~C (*¢) 
>: CLEAN UP STACK 





I 
Y 


S IT A <CR>? 
ES, IS IT THE FIRST CHAR? 
HIF YES 











af 
at 
ms 
fEvza 






& 
s 
na~t 


IMULATE CONTROL-U 


FF AAAAAAAERAREREEAARERAERAEEEEERERAAAEAEREEAAEKAAAEEAAAEAAEARARERERE 


— ee — 


L 4 
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sant ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 









; RDCHR ;3GET A CHARACTER FROM THe Queue 
:* RETURN HERE [CHARACTER IS ON THE STA 
: < {WITH PARITY BIT STRIPPED OFF 
_ | $RDCHR: (SP) ,=(SP) ; PUSH DOWN THE PC AND | 
000004 000002 MOV © 4( SP} ,2(SP) S | 
000004 4(SP) 33GET READY FOR A CHARACTER : 
=(SP) *PUT NEW PS ON STACK 
065270 #64$,-(SP) <<PUT NEW PC oN STACK 
sii ::POP NEW PC AND PS 
064372 1$: _ ::WAIT ON A CHARACTER 
37 STKCNT z:DECREMENT THE COUNTER 
177070 000004 SSTKOOUT. 4(SP) 53GET ONE CHARACTER 
064376 $TKQOUT * UPDATE THE POINTER 
064376 064401 STKQOUT, #STKQEND’ ; “DID IT 60 OFF OF THE END? 
064400 064376 #STKOSRT.STKQOUT’ "ipRESET THE POINTER 
sRERRARERRRERRARERERAEETERAERERREREREERAEREREREREREREEEREREEERES 
STAI. ROUTINE WILL INPUT A STRING FROM THE TTY 
ce ROLIN sz INPUT A STRING FROM THE T 
38 RETURN HERE * ADDRESS OF FIRST CHARACTER. WILL BE ON THE STACK 
38 S TERMINATOR WILL BE A BYTE OF ALL O'S 
— rt hal SETA THE RUBOUT KEY 
065570 1$: #STTYIN,R3 °:GET SS 
065600 2$: ASTTYINGS.,R3 BUFF 
4$ ::BR IF YES 
2:60 READ ONE CHARACTER FROM THE TTY 
(SP)+ (R3) *:GET CHARACT 
000177 10$: #177, (R3 ::1S IT A RUBOUT 
5$ ::BR IF NO 
(SP) 318 THIS THE FIRST RUBOUT? 
9001 065566 #'\,98 ::TYPE A BACK SLASH 
065388 #1, (SP) 33SET THE RUBOUT KEY 
6$: = BACKUP BY ONE 
065570 3 -ASTTVIN 3: STACK EMPTY? 
065566 (R3) 98 33 SETUP TO TYPEOUT THE DELETED CHAR. 
065566 9$ YPE 
3$ °°60 READ ANOTHER CHAR. 
5$: TST (SP) *RUBOUT KEY SET? 
BEQ he ::BR IF 
000134 065566 MOVB 3s #*\,, 98 *:TYPE A BACK SLASH 
5566 TYPE 
CLR (SP) ::CLEAR THE RUBOUT K 
000025 7$: CMPBsé#25,, (R’3) *:TS CHARACTER A CTRE U? 
BNE 8$ ::BR IF NO 


cs > 
SereNossneuse 


est 


SSsisis 


Ss 
aso 
N NN 


a 
- -_ _—= 
———— 
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065605 TYPE SCNTLU zz: TYPE A CONTROL ‘U"’ 
BR 7:60 START OVER 
000022 8$: #22, (R3) *31S CHARACTER A ‘'*R'’? 
37BRANCH IF NO 
) Eh THE CHARACTER 
001217 »S$CRLF S:TYPE ACR & "LF 
5570 STTVIN [TYPE THE INPUT STRING 
2 33G0 PICKUP ANOTHER CHACTER 
a - ” mi CLEAR THE BUFFER AND LOOP 
065566 3$: (R3) ,9$ ‘ECHO THE CHARACTER 
060078 
1 C #15, (R3)+ ::CHECK FOR RETURN 
2$ ::LOOP IF NOT RETURN 
177777 L =1(R3) CLEAR RETURN (THE 15) 
001220 LF :: TYPE A LINE 
T (SP) + 7 CLEAN T KEY FROM THE STACK 
MO (SP)+,R3 cer 
000002 - wuss, 2" lari nema = 
neta 000004 MOV #STTYIN,4(SP) 
RTI : :RETURN 
9S: s:STORAGE FOR ASCII CHAR. TO TYPE 
.B : : TERMINATOR 
STTYIN: .BL : ssRESERVE 8 BYTES FOR TTY INPUT 
103 015 $CNTLC: .ASCIZ /*C/<15><12>  ::CONTROL ''C 
125 015 $CNTLU: .ASCIZ /*U/<15><12> © 3: CONTROL ‘'U'’ 
107 015 $CNTLG: .ASCIZ 1sgl< ><12>  ;;CONTROL ''G’ 
012 123 : .ASCIZ <15><12>/SWR = / 
040 116 wASCIZ / NEW = / 
000042 SHUT: zANY MONITOR PRESENT ? 
‘BR IF YES 
005426 *GO TO START 
001 1$ :FUDGE NO DRIVES IN MAP 
041314 *RETURN TO $EOP 





OE 
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READ AN AN OCTAL NUMBER FROM THE T 


1 ~SBTTL READ AN OCTAL NUMBER FROM THE TTY 


F SAAAAEAARERAAEREEAAEREEAEAEEEERERAARERARERARAERERERREREREKKAKKKKERKE 


THIS a WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
*CHANGE IT TO BINARY. 



















+ eCALL: 
3* RDOCT 3ZREAD AN OCTAL NUMBER 
3* RETURN HERE 33LOW ORDER BITS ARE ON TOP OF THE STACK 
:* 3ZHIGH ORDER BITS ARE IN SHIOCT 
011646 SRDOCT: (SP) ,~(SP) :zPROVIDE SPACE FOR THE 
1 000004 000002 4(SP5 ,2(SP) INPUT R 
56 1 (8 ; ;PUSH R ON STACK 
06567 10146 R1 Pa} +5 sPUSH R1 ON STACK 
065 4 £38 R2,=( SP) ::PUSH yd ON ry tine 
5 0441 1$: 3ZREAD AN ASCIZ L 
: 4 600 (SP)+,RO GET ADDRESS oF’ hs CHARACTER 
001 R1 CLEAR DATA WORD 
06571 sss '9g R2 
571 11 2$: (RO)+,-(SP) szPICKUP THIS CHARACTER 
5714 1412 3$ szIF ZERO GET OUT 
571 1 R1 s282 
5 2 R 
: } R 336 
5724 102 R 
a 102 R ws ! 
He 71 177770 #*C7, (SP) szSTRIP THE ASCII JUNK 
065 ot ties 32:ADD IN THIS DIGIT 
574 eee 2 :LOOP 
5742 6 3$ (SP) + CLEAN TERMINATOR FROM STACK 
5744 19166 4s 3 R1,12(SP) 2ZSAVE THE RESULT 
5750 01 065764 R2,$H 
5754 012602 (SP)+,R 3 TACK INTO R2 
57 012601 Ae oR 3s TACK INTO R1 
57 1 SP)+,RO $3 TACK INTO RO 
57 TI S:RETURN 
065764 SHIOCT: .WORD 0 3 sHIGH ORDER BiTS GO HERE 


sd 


& 
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TRAP DECODER 


-SBTTL TRAP DECODER 


Rabadeboladebobelbebetebaleabaialebedbebeb-bab-iebebababbetahleieieb-inipb-deiabbeleiabiohepbettabtebd-Sehoeboks 

: THIS ROUTINE WILL PICKUP THE 1 es BYTE OF bs "“TRAP*’ INSTRUCTION 
USE TABLE FOR THE STARTING ADDRESS 

:*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

:*GO TO THAT ROUTINE. 








0657 1 46 $0085 STRAP: 2(SP) .=(SP) : : ASSUME THE STATUS OF 
5776 0127 #1$.-(SP) :: T=BIT TRAP 
33SET THE NEW STATUS 
1 1$: (SP) VE 
oi 000002 285) <IGET TRAP /ABDRESS 
1 4 + SPACKUP 
14 111 RO) a0 :3GET RIGHT BYTE OF TRAP 
066020 1 066040 STRPAD (RO) ,RO $C URDEX. 10 — 
4 sti RO : 7:60 TO ROUTINE 


:3THIS IS USE TO HANDLE THE ‘’GETPRI*’ MACRO 





| 
#20, (SP) ; THE CALLER=-DO NOT ALLOW 















066026 011646 STRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 
066030 016666 000004 000002 MOV 4(SP) ,2(SP) : MOVE THE PSW DOWN 
066036 000002 T * sRESTORE THE PSW 
.SBTTL TRAP TABLE 
:sTHIS yt LE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
INSTRUCTION. 
; ROUTINE 
066040 066026 STRPAD: STRAP2 
2 0615 $ 2: CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
13 s:CALL=TYPOC 3=-‘T PE OCTAL NUMBER (WITH LEADING ZEROS) 
46 1310 2: CALL=TYPOS AL NUMBER (NO LEADING ZEROS) 
135 * sCALL=TYPON AL NUMBER (AS PER LAST CALL) 
52 1064 =: CALL=TYPDS DECIMAL NUMBER (WITH SIGN) 
54 061010 = CALL=TYP8N TYPE BINARY (ASCII) NUMBER 
066056 064772 Z:CALL=GTSWR - TRAP+7(104407) GET SOFT-SYUR SETTING 
70 s:CALL=CKSWR § TRAP+10( 104410) TEST FOR CHANGE IN SOFT-SWR 
5244 SRDCHR ::CALL=RDCHR § TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
5334 SRDLIN ::CALL=RDLIN TRAB+IE(t ig) TTY TYPEIN STRING ROUTINE 
fat Stil FEeA Saber PMBCHeCRGGIg} RAD a OAL ER FON Ty 
752 SRESREG *T CALLERESREG TRAP+15(104415) RESTORE RO-RSe ROUTINE 








© 


od ceed ed eed ced ed ceed eed etd eed ed 





12677 
12605 
12604 
12603 
12602 
12601 
1 

1 

12737 


Coooeoeo 


® 
oS 
cal 


000024 


- 000024 


Ose 
000026 


120 
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-SBTTL POWER DOWNY AND UP ROUTINES 


23 OWER DOWN ROUTINE SHAEAAAAAAAAARAARERARARERARKREAKKKKAKEEKEE 


ipURDN: MOV 


MOV 
MOV 
MOV 
MOV 
MOV 


MOV 


HALT 


PUSH Ro ON STACK 
eee 33 SH R1 ON STACK 
Re.~(SP = PUSH R2 ON STACK 

= (SP) *:PUSH R3 ON STAC 
R4,-(SP) +:PUSH R CK 
5.-(SP) : :PUSH RS ON STACK 
astn (SP) : ;PUSH asuR ON STACK 
SshURUP @NPWRVEC’::SET UP VECTOR 
.-2 ::HANG UP 


SEREAEEKEEEAAAAARERERKEAEREREEEEERARERAEEERAAERAEKAKEEERKRKEKAKKKKKKKEKE 


“POWER UP ROUTINE 


SPWRUP: 


1$: 


MOV 





: bee tae : 
2 


a seeeT pO FAST DOWN 
::WALT LOOP FOR THE TTY 
WAIT FOR THE INC 
WORD 
: POP STACK INTO @aSwR 


:3POP STACK INTO k5 
:sPOP STACK INTO R4 
;sPOP S 






RO 
THE POWER DOWN VECTOR 


T THE POWER FAILURE 
< POWER FAIL MESSAGE POINTER 


+3 THE POWER UP SEQUENCE WAS STARTED 


72 3: BEFORE THE POWER DOWN WAS COMPLETE 
: eASCIZ <15><12>° POWER’ 


:3sPUT THE SP HERE 


SEQ 0260 


— 


iieeennsses 


BPRRERERES 


$33 


SRRSSSTS 








ak 


—_ 
& 
Vin 


SFLSNSNSoSS 


WwW 
N 


cs 
— 
sae 
Ww 


_ 
= 
oO 


ae esces=s 
GReGaa 


ah 
So 
vA] 
N 


S 
path 


Raeues 
aoc 


; 
us 
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001222 


001 eee 


uae 
@ 


— o SENVM 


SRazsRee Ras 
——as © 


a 


goes Soin 





— ° 
” 
3 § 


BEQ 
TST 
BEQ 





-SBTTL APT COMMUNICATIONS ROUTINE 


ss SAAAAAAAAAEAAAAAARAAEEEAEEEEAEEREREEEARARARERAEERHREREREKKKKKKEEEE 


:;TO REPORT FATAL ERROR 
:3T0 TYPE A MESSAGE 


:3TO ONLY REPORT FATAL ERROR 


::PUSH RO ON STACK 
::PUSH R1 ON STACK 
: 3 SHOULD TYPE A MESSAGE? 
: OPERATING UNDER APT? 
“tIF NOT: 
::SHOULD SPOOL MESSAGES? 
s:IF NOT: 6R 
*:GET MESSAGE ADDR. 

3 RETURN ADDR. 
::SEE IF DONE W/ LAST XMISSION? 
‘IF NOT: WAIT 
::PUT ADDR IN MAILBOX 
::FIND END OF MESSAGE 


:3SUB START OF MESSAGE 
23GET MESSAGE LNGTH IN WORDS 
:sPUT LENGTH IN MAILBOX 
:3sTELL APT TO TAKE MSG. 














33PUSH 1 
33CALL TYPE MACRO 


SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
RUNNING UNDER APT? 
NISHED LAST MESSAGE? 
NOT: WAIT 
T ERROR # 

> :BUMP RETURN ADDR. 
LL APT TO TAKE ERROR 
FATAL FLAG 


bone “V8 One 










220m © 
-—-m Meh 


mmr 
5% 
| 





MES FLA 
STACK INTO R1 


CZRNDAO 
CONSOLE 


Dee eal oi abanabad 
MFWIN =O OONOAOUSWN “OVO OWVNOUL wn 


yy 
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MESSAGES 


~-SBTTL CONSOLE MESSAGES 












0665 075 000 .ASCIZ a=a 
5 101 114 114 ~ASCIZ @ALL@<CRLF> 
f 040 077 -ASCIZ a?a 
or 131 AStTS 
367 122. 115 “ASCIZ <CRLF>@RMCS1 
€ 114 111 ASCIZ @ 
1 12 115 126 .ASCIZ 
50 114 111 -ASCIZ @ LIMITS - LO= 0 
124 131 “ASCII <CRLF>@TYPE 'A’’ f 
1 101 116 -ASCIZ <CRLF>@AND 
06 ASCII F> 
06704 077 111 -ASCIZ 8 21 
067970 200 104 122 “ASCIZ <CRLF>/DRIVE(S): / 
7104 04 122 11 ASCIZ 
711 200 12 116 ~ASCIZ 
71 122 115 07 -ASCIZ 
7135 040 116 117 -ASCI2 
0671 : 040 114 117 ~ASCIZ 
0671 040 116 117 ASCIZ 
06 040 116 117 ASCIZ 
06 93 0 117 106 -ASCIZ 
06 040 117 116 ASCI 
7244 200 104 122 eASCIZ 
73 116 117 116 -ASCIZ 
200 104 11 ASCIZ 
067 200 120 105 -ASCIZ 
06744 200 012 10 ASCII 
7527 124 11 ~ASCIZ <CRLE>/THE 
7617 111 116 12 -ASCIZ /INSERT L 
7655 120 12 114 ASCIZ 
06 200 124 131 “ASCIZ 
067750 120 114 125 ~ASCIZ «= /PL 
067771 116 000 ~ASCIZ /N/ 
7773 131 000 ~ASCIZ /Y/ 
7775 040 : ASCII / / 
7776 040 : ASCII // 
7777. —s«,:«040 : ASCII // 
040 000 : ASCIZ // 





a. a 
<CRLF>@TYPE HELP TEXT (L) N? @ 
LIMITS = LO= 160000, HI= 17XXXX@<CRLF> 
HI= 1000@<CRLF><LF> 
O TEST ALL DRIVES 
TERMINATE INPUT WITH A C 


LLEGAL INPUT@<CRLF> 


OR TYPE DRIVE NUMBER(S)a@ 
ARRIAGE RETURN.@ 


Vv 
<CRLF>/UNIT STATUS:/ 


YOU WANT INTERVENTION TESTS ¢ 
<CRLF>/PERFORMING ‘LOGICAL SS PLUG TEST* 
<CRLF><LF>/BEFORE PROCEDING WITH THE TEST, POWER DOWN OR PULL/ 

ADDRE FROM ALL DEVICES NOT BEING TESTED./<CRLF><LF> 


SEQ 0262 


38 


on 
22 


LASLS MMSE yVYYMVUNNS 3s = 


ABLE 


070002 020000 
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~SBTTL FUNCTION CODE TABLE 


THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA ~ BIT 15_IS A IN hy 3 tech NTRY FOR A_GIVEN FUNCTION CODE 
7IF_ATA SET N THE FUNCTION CODE IS EXECUTED, OTHERWISE, 
BIT % uh? ZERO, INDICATING THAT UMA D NOT NORMALLY BE SET. 
;NOTE THAT ATA MAY BE WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI ~- BIT 135 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
‘IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. | 


IvC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE =~ BIT 11 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF, THAT COMMAND,. 
THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE"', "WCF, “DPE”, “UPE’. 


IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


: ADE ~ BIT 09 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
31F READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
;CORAND,, THE ERRORS ENABLED BY THIS BIT ARE TRE. DLT. NEM, 






























: 3 BIT 08 IS NOT USED. 


HEADER ER BIT 07 IS SET IN DUR ENTRY 4 ERLE F ae CODE 
DER ERRORS ORS INCLUDE™ HERE : ice "FER", " 


C 
BSE’ AND *‘SSE"’. 
BIT 06 ae afr mF pe ENTRY FOR A GIVEN ae CODE 
















pas FIELD ERRORS ARE ENABLED DURING, THE, EXECU ON OF THAT 
; BIT OS IS NOT USED. 

3 BIT 04 IS NOT USED. 

3 BIT 03 IS NOT USED. 

; BIT 02 IS NOT USED. 

$ BIT 01 IS NOT USED. 

3 ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: sFUNCTION CODE TABLE 
-WORD OPI sNOP 


SEQ 0265 


SEQ 0264 


OO EE 
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UNCTION CODE TABLE 


me ee ee 


DATA 
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LEGAL FUNCTION (2) 


®e *e *e *@ *e *@ *e@ ® wn bu ou 6a 440neuee aes cone @®*®e *e ¢e *@ 


z= 
ww 
ev 
vey? yy us z= 
ww ro) ww 
ee a SY 
J 
uy ef ies == 
yu veyvyyysy 
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uu. Wwe ww raprar eer rarrarrar rar rarer ray ey ye tastes 
ae . <a RA SER EEE RSET TEA 
f— Wee xxx <<< Seppe 
~ >Re ba ba = > Sk — > PS 
<3 —<<< << <<< <<O6<<——<<——<< 


ave < ae qupenpenabagbaneusenenensmnanebeginetneeneere 


<<S3383388< SRERREEYUEEREREEETS 
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-SBTTL ATTENTION (ATA) TABLE 
ATNTBL: y Ne 


¢: 





SEQ 0265 


ee ee ee ee oe ee ee een -—--+- 


it ei ri ml, a 


SEQ 0266 





t= | 
oS as 
~ a 
~ 82 
of 2h 
a4 ths 
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wo a) 
~w « Wer 
noo Ae 





150 
sf 
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a 


eevee a 


ital 








5 oe oC SRSA OR SEANCES s 
So ek cool aol eel noel eee ooh ad ww 
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SSSSs_E 72 CORR SSSR RRS S.0c SER RERRR 
SSO90c Ne CAIN UIAIA SN 
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SEQ 0267 
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ERROR MESSAGE TABLE 
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102312 : .WORD 
i 1156 1 i : - WORD 56,EMS210,EMS26,EMS27,0 
101 reene : WORD 3 
1357 EMT256: _WORD 

7 7 3 : WORD 
1 7657 : WORD 
102177 102502 EMT261: .WORD ,£MS115,EMS51,EMS72,0 

17 1021 : :WORD 
26 5 0 41 : WORD 
76505 077414 : WORD ,EMS152,EMS70,0 
076570 077414 EMT265: .WORD »EMS152,EMS72,0 
1 1016 76508 : WORD 
1 110 4 : WORD -EMS46,0 
076505 077414 : WORD ; 
076808 077414 : WORD -EMS72 0 
100753 077414 : [WORD EMS/ 
723 077614 : WORD EmS70,0 
076505 076645 : WORD EMS146,0 
076505 076116 : WORD 
076505 07664 : WORD 0 
76505 076645 : WORD EMS72,0 
76505 076645 : .WORD EMS152,EMS70, 
7657 076 0 : , WORD MS150,EMS152.EMS72.0 
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13-F 1 1 

2 7 i 22-45 22-515 23-95 56-14 56-16 

135-:14% 135=:81% 13-3;47% 135-<i3* 13-<71* 1 1* 15-877 13-879* 13-892* 13-A35* 13-B81* 13-C35 
13-€ 1 1 9 O5* 135-E18* 15-E58* 13-F00*« 135-F75* 23-71 


ae oO : 














} 13-¢ 4 77 1 D198 13-£03 1 
Hno30 36-81 35-BS B8cBY 50-232 30-250 30-253 
RMWC 13-11 13-:17 13-: 13-:50 13-<16 13-<74 
RMWC I 23-23 3-44 25-149 56-14 
RMWCO 13-:78% 13-:44% <10* 13-<68e 23-24 23-45 
ROA : 10 31-82 
ROB -10 1- 
RTC 
SAi 
SA16 
She 
SA8 
SADMSK 
SAVREG 41-13 
SC 21-90 21-107 21-123 28-30 





errr ee ee —=s - 


— 


CZRNDAO RMSO FCTNL PT1 ance ys 00 28-JAN-82 16:24:51 PAGE S-28 SEQ 0314 | 
CROSS REFERENCE TABLE (CREF -00 ) 


SC2 4-5 | 

sc3 4-5 | 

SC4 4-58784 | 
STS 13-D0 





1 1 “783 13-514 13-536 
1 13- 1 13-:54 
1 135->41 1 1 13-a35 
1 135-014 13-F 13=-F 69 
J 13-E55 23-5 
13-343 ] “386 13-264 17-8e6 
; 5 : wm 1 1 13-8 
: 1 ~f68 13-811 13-858 
3 13-866 13-039 26-194 
15-3 
13-199 13-42 26-105 6-107 
30-21 oor 158 -137 
iss 
13-927 22-450 23-71 23-96 23-98 23-109 26-63 32-104 
10-24 13-2 13- 13- 13-34 13-448 13-473 13-490 13-514 
13-561 1 1 1 orf 1 328 13-8 13-884 13-915 13-959 13-988 
13-;2 3-; 13->11 13->41 13->71 13-705 13-739 13-767 #£13-a01 
1 13-C70 13-014 13-065 13-£10 13-E51 13-€91 13-F30 
1 
1 
i oF | 
jae 13-760 13-822 13-910 13-954 13-834 13-093 13-E39 13-E79 13-F62 33-27% 
39-54 
52-2 52-8 52-10 52-11 52-1 6-134 
52-2 52-8 52-10 52-11 52-1 6-144 
52-2 52-8 52-10 52-11 ag-fe ; 174 
53-1 53-1 - 55-2 = 53-8 53-8 53-10 53-10 53-10 53-11 53-11 
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